Поставить таймер в метод прогонки

begin
        write('a(',i,',',j,')=');
        readln(a[i,j]);
        end;
    write('b(',i,')=');
    readln(b[i]);
    end;
    
for i:=1 to n do
    begin
    if i=1 then
       k[i]:=0
    else
        k[i]:=a[i,i-1];
        m[i]:=-a[i,i];
    if i=n then
        t[i]:=0
    else
        t[i]:=a[i,i+1];
    end;
    
p[1]:=t[1]/m[1];
q[1]:=-b[1]/m[1];
for i:=2 to n do
    begin
    p[i]:=-t[i]/(k[i]*p[i-1]-m[i]);
    q[i]:=(b[i]-k[i]*q[i-1])/(k[i]*p[i-1]-m[i]);
    end;
 
x[n]:=(b[n]-k[n]*q[n-1])/(k[n]*p[n-1]-m[n]);
for i:=n-1 downto 1 do
    x[i]:=p[i]*x[i+1]+q[i];
    
for i:=1 to n do
    writeln('x(',i,')=',x[i]);
end.

uses utils;
var t1,t2:integer;//начало и конец прогонки
//................................
t1:=Milliseconds;
//прогонка
t2:=Milliseconds;
writeln('Время=',t2-t1,' mls');

uses utils;
var a:array[1..100,1..100] of integer;
    b,t,k,m:array[1..100] of integer;
    p,q,x:array[1..100] of real;
    n,i,j,t1,t2:integer;
begin
write('n=');
readln(n);
for i:=1 to n do
for j:=1 to n do
 begin
  write('a(',i,',',j,')=');
  readln(a[i,j]);
 end;
for i:=1 to n do
 begin
  write('b(',i,')=');
  readln(b[i]);
 end;
t1:=Milliseconds;
for i:=1 to n do
    begin
    if i=1 then
       k[i]:=0
    else
        k[i]:=a[i,i-1];
        m[i]:=-a[i,i];
    if i=n then
        t[i]:=0
    else
        t[i]:=a[i,i+1];
    end;
p[1]:=t[1]/m[1];
q[1]:=-b[1]/m[1];
for i:=2 to n do
    begin
    p[i]:=-t[i]/(k[i]*p[i-1]-m[i]);
    q[i]:=(b[i]-k[i]*q[i-1])/(k[i]*p[i-1]-m[i]);
    end;
x[n]:=(b[n]-k[n]*q[n-1])/(k[n]*p[n-1]-m[n]);
for i:=n-1 downto 1 do
    x[i]:=p[i]*x[i+1]+q[i];
t2:=Milliseconds;
for i:=1 to n do
    writeln('x(',i,')=',x[i]);
write('Âðåìÿ=',t2-t1,' mls');
end.