Подсчет времени выполнения слияния массивов

[PavelDD]

Доброго времени суток.
Обращаюсь за советом.
Написал код подсчет времени выполнения слияния массивов в Free Pascal под модулем DOS.В Pascal АВС этого модуля нет.Возможно ли написать код в Pascal АВС?

[Stilet]

Возможно. Что использовал в коде из модуля DOS?

[PavelDD]

 uses crt,dos;
 var
   a1,a2:array[0..30000] of integer;
   a3:array[0..60000] of integer;
   i,j,k,m:integer;
   hour,min,sec,hund:word;
   t1,t2,t,n:longint;
 begin
   clrscr;
   GetTime(hour,min,sec,hund);
   writeln(hour,':',min,':',hund);
   t1:=sec*100+min*6000+hund;
   writeln('размер массивов: ');
   readln(n);
   writeln('первый массив:');
   for i := 1 to n do
     a1[i]:=random(10000);
   writeln('второй массив:');
   for i := 1 to n do
     a2[i]:=random(10000);
   i:=1; j:=1; k:=1;
   while (i<=n) and (j<=n) do begin
     if a1[i] < a2[j] then begin
       a3[k]:=a1[i];
       i:=i+1;
     end
     else begin
       a3[k]:=a2[j];
       j:=j+1;
     end;
     k:=k+1;
   end;
   while i<=n do begin
     a3[k]:=a1[i];
     i:=i+1;
     k:=k+1;
   end;
   while j<=n do begin
     a3[k]:=a1[j];
     j:=i+1;
     k:=k+1;
   end;
   writeln;
   for i:=1 to n+n do
     write(a3[i]:4);
   writeln;
   GetTime(hour,min,sec,hund);
   writeln(hour,':',min,':',sec,':',hund);
   t2:=sec*100+min*6000+hund;
   t:=t2-t1;
   write('t= ',t,' милсек');
   writeln;
   readln;
 end.

вот код с Free, тоже глючить стал .Проверил на размер массивов 1000 и 10000 :работает.Проверил 30000:не работает теперь вообще. Выдает ошибку: 'exited with exitcode = 201'

[Stilet]

Добавь переменку

 dt:datetime;

Получай в нее дату

 dt:=CurrentDateTime;

Далее dt.hour даст час, dt.minute - минуты dt.second - секунды.
Это взамен GetTime.
Остальное должно схватится.
Ну и dos уберешь.

[PavelDD]

Выдает ошибку: 'неизвестное имя типа "datetime" '

[Stilet]

А ты в хелпе почитай в каком модуле у ABC оно сидит.

[PavelDD]

Спасибо,разобрался!