Вывести на экран показания системных часов и изменить показания на час назад

uses dos,crt;
var H,M,S,MS :word;
 
Function LeadingZero(w:word) :string;
var s:string;
 begin
  Str(W:0,S);
  If Length (s) = 1 then S:='0'+S;
  LeadingZero:=S;
 end;
 
begin
 clrscr;
 GetTime(h,m,s,ms);
 Writeln ('Time: ',LeadingZero(H),':',LeadingZero(M),':',LeadingZero(s),'.',LeadingZero(Ms));
 Writeln ('ATime: ',LeadingZero(H-1),':',LeadingZero(M),':',LeadingZero(s),'.',LeadingZero(Ms));
 Readln;
end.

uses
  Utils,Crt;
type
  DateTime=record
    Day,Month,Year,Hour,Minute,Second,Milliseconds:integer;
  end;
var
  time:DateTime;
begin
    time:=CurrentDateTime;
    writeln(' Âðåìÿ: ',time.hour,':',time.minute,':',time.second,':',time.Milliseconds div 100);
    writeln('ÀÂðåìÿ: ',time.hour-1,':',time.minute,':',time.second,':',time.Milliseconds div 100);
end.

uses crt,utils;
var i:integer;
    t:datetime;
begin
hidecursor;
window(36,12,47,14);
textbackground(0);
textcolor(10);
clrscr;
repeat
t:=CurrentDateTime;
if t.hour>0 then t.hour:=t.hour-1//на час назад
else t.hour:=23;
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);
until keypressed;
 
end.