Не могу вставить процедуру "время выполнения программы"

program shell;
 
uses
  crt; //ìмодуль, который подключает clrscr, readkey
 
var
  a: array[1..100] of integer; //массив
  i, n, incr, j, x: integer; //используемые переменные
//начало программы
begin
  writeln('введите размерность массива');//читаем с экрана
  readln(n);//считываем введённое число
  writeln('исходный массив');
  for i := 1 to n do //цыкл от 1 до введенного нами n
  begin
    a[i] := random(10); //заполнение случайными числами массива
    write(a[i], ' '); //вывод на экран
  end;
 
  incr := n div 2; //делим по палам массив
  //и сортируем каждую его часть
  while incr > 0 do //пока числа больше нуля 
  begin// то
    for i := incr + 1 to n do//сортировка по обычному начиная от первого элемента
    begin
      j := i - incr;
      while j > 0 do // входим в цикл и сравниваем первый и следующий за ним элемент
        if a[j] > a[j + incr] then // если он больше него
        begin //òî
          x := a[j]; //производится обмен этих элементов
          a[j] := a[j + incr];
          a[j + incr] := x;
          j := j - incr; //и уменьшения j
        end
        else // в ином случае
          j := 0;
    end;
    incr := incr div 2;
  end;
  readln;
 
  for i := 1 to n do
  begin
    write(a[i], ' ');//Вывод отсортированного массива
end.

GetTime(hour,min,sec,hund);//определяем время начала программы
writeln(hour,':',min,':',sec,':',hund);
t1:=sec*100+min*6000+hund;
 
sort(1,n);//программа сортировки
 
GetTime(hour,min,sec,hund);//время окончания
writeln(hour,':',min,':',sec,':',hund);
t2:=sec*100+min*6000+hund;;
t:=t2-t1;//прошло времени

program shell;
 
uses
  crt, //ммодуль, который подключает clrscr, readkey
  utils;//модуль для определения времени
var
  a: array[1..100] of integer; //массив
  i, n, incr, j, x: integer; //используемые переменные
  t:integer;
//начало программы
begin
  writeln('введите размерность массива');//читаем с экрана
  readln(n);//считываем введённое число
  writeln('исходный массив');
  for i := 1 to n do //цыкл от 1 до введенного нами n
  begin
    a[i] := random(10); //заполнение случайными числами массива
    write(a[i], ' '); //вывод на экран
  end;
 
  incr := n div 2; //делим по палам массив
  //и сортируем каждую его часть
  while incr > 0 do //пока числа больше нуля
  begin// то
    for i := incr + 1 to n do//сортировка по обычному начиная от первого элемента
    begin
      j := i - incr;
      while j > 0 do // входим в цикл и сравниваем первый и следующий за ним элемент
        if a[j] > a[j + incr] then // если он больше него
        begin //то
          x := a[j]; //производится обмен этих элементов
          a[j] := a[j + incr];
          a[j + incr] := x;
          j := j - incr; //и уменьшения j
        end
        else // в ином случае
          j := 0;
    end;
    incr := incr div 2;
  end;
  for i := 1 to n do
  write(a[i], ' ');//Вывод отсортированного массива
  t:=milliseconds;
  write('Время выполнения=',t/1000:0:2,' с.');
    
end.

uses crt,utils;
var i:integer;
    t:datetime;
    f:boolean;
begin
hidecursor;
window(36,12,47,14);
textbackground(0);
clrscr;
f:=true;
repeat
t:=CurrentDateTime;
if (Milliseconds mod 1000=0)and f then
 begin
  clrscr;
  textcolor(10);
  gotoXY(3,2);
  if t.hour<10 then write('0',t.hour,':')
  else write(t.hour,':');
  if t.minute<10 then write('0',t.minute,':')
  else write(t.minute,':');
  if t.second<10 then write('0',t.second)
  else write(t.second);
  f:=false;
 end
else f:=true;
until keypressed;
end.

uses
  Utils,Crt;
type
  DateTime=record
    Day,Month,Year,Hour,Minute,Second,Milliseconds:integer;
  end;
var
  time:DateTime;
begin
  HideCursor;
  repeat
    time:=CurrentDateTime;
    write('C начала работы программы прошло: ',Milliseconds div 1000,'  сек. Дата: ',time.year,'.',time.month,'.',
          time.day,' Время: ',time.hour,':',time.minute,':',time.second,':',time.Milliseconds div 100);
    GotoXY(1,1)
  until
    1<0
end.