Перевести минуты в минуты и часы

Var
  s,v1,v2:real;
  t, a, b, c:real;
  label a1, a2, a3, konec;
begin
  
a1:
write('Введите расстояние между автомобилями (в км.): ');
readln(s);
 
if s<=0 then begin writeln ('Растояние не может быть меньше или равно нулю');
goto a1;
end;
a2:
write('Введите скорость первого автомобиля (в км/ч): ');
readln(v1);
if v1<0 then begin writeln ('скорость не может быть меньше нуля');
goto a2;
end;
a3:
write('Введите скорость второго автомобиля (в км/ч): ');
readln(v2);
if v2<0 then begin writeln ('скорость не может быть меньше нуля');
goto a3;
end;
if (v2=0) and (v1=0) then begin writeln ('Автомобили не встретятся никогда');
goto konec;
end;
t:=s/(v1+v2);
a:= t/(60*24) ;
 b:= (t/60) - ((a*24)*60) ;
 c:= t - ((b*60)+((a*24)*60));
 b:=c div 60;
c:=c mod 60;
writeln('Встретятся через ', c:0:2,' минут',b , 'часов');
konec:
end.

var
s,v1,v2,t,b,c:real;
begin
  repeat
    write('Введите расстояние между автомобилями (в км): '); readln(s);
    if s<=0 then writeln('Расстояние не может быть меньше или равно нулю');
  until s>0;
  repeat
    write('Введите скорость первого автомобиля (в км/ч): '); readln(v1);
    if v1<0 then writeln ('скорость не может быть меньше нуля');
  until v1>=0;
  repeat
    write('Введите скорость второго автомобиля (в км/ч): '); readln(v2);
    if v2<0 then writeln ('скорость не может быть меньше нуля');
  until v2>=0;
  if (v2=0) and (v1=0) then writeln ('Автомобили не встретятся никогда')
    else begin
      t:=s/(v1+v2)*60; b:=0;
      if t>=60 then begin
        repeat
          t:=t-60; b:=b+1;
        until t<60;
        c:=t;
      end else c:=t;
      writeln('Встретятся через ',b,' час(ов) ', c:0:0,' минут(ы)');
    end;
end.

  WriteLn('Встретятся через ',t div 60,' час(ов) ', t mod 60,' минут(ы)');