Для того чтобы узнать время работы программы в Free Pascal, вы можете использовать встроенную функцию GetTickCount. Она возвращает количество миллисекунд, прошедших с момента загрузки операционной системы.

Пример кода:

program TimeExample;
uses
SysUtils;
var
StartTime, EndTime: DWord;
begin
StartTime := GetTickCount;
// Здесь идет выполнение вашей программы
EndTime := GetTickCount;
Writeln('Program execution time: ', (EndTime - StartTime), ' milliseconds');
end.

Этот код измерит время выполнения программы в миллисекундах и выведет результат на экран.