Как поставить таймер в паскале?

[Timon779]

Сначала ошибся. Сейчас вот TDateTime везде поставил

Unit Timer;
interface
procedure Start (var DT:TDateTime); {longint-öåëîå 32 áèòíîå ÷èñëî ñî çíàêîì}
procedure Stop (var DT:TDateTime);
procedure Pause (DT:TDateTime); Show:boolean); {ðàçðåøåíèå èëè çàïðåò âûâîäà}
                                           {íà ýêðàí}
Implementation                                           
begin
DT := Time;
procedure Start(var DT:TDateTime);
end;
procedure Stop (var DT:TDateTime);
begin
 T:=SystemTimer-T;
end;
procedure Pause (DT:TDateTime; Show: boolean);
var Xn, Xt:TDateTime;
begin
   Xt:=0;
   Xn:=SystemTimer;
   While((Xt-Xn)/18.2)*1000<T do
   begin
      Xt:=SystemTimer;
      If Show then
      writeln((xt-xn)/18.2:6:4)
      end;
   end;
end.

Но теперь он пишет
Syntax error, "IMPLEMETATION" expected but "identifier SHOW" found
Fatal: Compilation aborted