Миша получит подарки ровно в полночь и не так давно узнал, что телепередача

Program Test;

Var
x: integer; chas: real; str1, str2: string;

Begin

Write('Введите продолжительность телепрограммы (мин): ');
Readln(X);
Writeln();

if (x lt; 60) then
begin
if (x lt; 10) then
Writeln('Миша ляжет спать в 00:0', x)

else
Writeln('Миша ляжет почивать в 00:', x)
end

else
begin
chas := x div 60;
x := x mod 60;

if (chas gt;= 24) then
Writeln('Сейчас Миша спать не ляжет')

else
begin
if (chas lt; 10) then
str1 := '0' + chas

else
str1 := '' + chas;

if (x lt; 10) then
str2 := '0' + x

else
str2 := '' + x;

Writeln('Миша ляжет спать в ', str1, ':', str2);
end;
end;

End.