在Free Pascal中，清屏可以通過調(diào)用操作系統(tǒng)的清屏命令來實現(xiàn)。在Windows系統(tǒng)中，可以使用`system('cls')`來清屏；在Unix或Linux系統(tǒng)中，可以使用`system('clear')`來清屏。

以下是一個簡單的Free Pascal程序示例，演示如何在不同操作系統(tǒng)中清屏：

```pascal

program ClearScreen;

begin

if ParamStr(1) = 'Windows' then

system('cls')

else

system('clear');

end.

```

要運行這個程序，你可以傳遞參數(shù)來指定操作系統(tǒng)類型：

對于Windows系統(tǒng)，運行 `ClearScreen Windows`

對于Unix或Linux系統(tǒng)，運行 `ClearScreen Unix`

這個程序首先檢查第一個命令行參數(shù)是否為`Windows`，如果是，它將執(zhí)行`cls`命令；如果不是，它將默認執(zhí)行`clear`命令。

注意：直接調(diào)用系統(tǒng)命令可能會帶來安全風險，因此確保只從可信的源調(diào)用系統(tǒng)命令。