Записать тип Время, состоящий из полей: Час: 0..23; Мин, Сек: 0..59 — Pascal(Паскаль)

program PascalGuru;

uses crt;

type
  Vremia = record
    cas: 0 .. 23;
    min: 0 .. 59;
    sec: 0 .. 59;
  end;

var
  t1, t2, p: Vremia;

begin
  writeln('Vvedite pervoe vremia:');
  write('Cas:');
  readln(t1.cas);
  write('Min:');
  readln(t1.min);
  write('Sec:');
  readln(t1.sec);
  clrscr;
  writeln('Vvedite vtoroe vremia:');
  write('Cas:');
  readln(t2.cas);
  write('Min:');
  readln(t2.min);
  write('Sec:');
  readln(t2.sec);

  clrscr;
  writeln('Time1: ', t1.cas, ':', t1.min, ':', t1.sec);
  writeln('Time2: ', t2.cas, ':', t2.min, ':', t2.sec);

  if t1.cas < t2.cas then
    p.cas := t2.cas - t1.cas;
  if t1.min < t2.min then
    p.min := t2.min - t1.min;
  if t1.sec < t2.sec then
    p.sec := t2.sec - t1.sec;

  if t1.cas > t2.cas then
    p.cas := t1.cas - t2.cas;
  if t1.min > t2.min then
    p.min := t1.min - t2.min;
  if t1.sec > t2.sec then
    p.sec := t1.sec - t2.sec;

  writeln;
  writeln('Raznica: ', p.cas, ':', p.min, ':', p.sec);

  readln;

end.