Написать программу, которая в центре чистого экрана на одном и том же месте выведет последовательно цифры от 1 до 3600 (аналог электронного секундомера) — Pascal(Паскаль)

program ForDarishka;
uses crt;
const str_x = '                                      ';  //Отступаем
var i:integer;
    str:string;
 
begin
for i:=1 to 3600 do //Цикл от 1 до 3600
    begin
    str:=str_x+inttostr(i);//Создаем строку, которая по сути является числом
    writeln(str);  //выводим строку на печать
    delay(1000); // делаем секундную задержку. Здесь 1000 - это в мсек.
    clrscr;   // Очищаем экран. Создаем эффект замены числа на другое
    end;
end.