Odmierzacz czasu i Free Pascal

Potrzebuje odmierzacz czasu, ale nie wiem jakiego kodu użyć. Proszę o pomoc !!

uses sysutils;

vat t:double;
begin
  t:=time;
  {...................}
  writeln((time-t)*24*60*60:10:2, ' sekund');
end.

W FPC nie ma SysUtils :>

Skleciłem na szybko w FPC.

uses dos, crt;

type
 TTime = record
  h, m, s, s100 :Word;
 end;

var
 StartTime, EndTime :TTime;
 St, Et             :LongInt;

procedure Tm(var ATime :TTime);
begin
 with ATime do GetTime(h, m, s, s100);
end;

{ lub }

function TimeToSec :LongInt;
var Temp :TTime;
begin
 with Temp do
  begin
   GetTime(h, m, s, s100);
   TimeToSec := h*24 + m*60 + s*60;
  end;
end;

begin
 ClrScr;
 Tm(StartTime);
 {... instrukje }
 Tm(EndTime);

 { lub }
 St := TimeToSec;
 { instrukcje }
 Delay(2000);
 Et := TimeToSec;
 WriteLn('Instrukcje trway: ', Et-St, 'sekund');
 ReadLn;
end.

Adam, a co to jest FPC?
W moim FreePascal’u mam SysUtils, wiem co mam.