Программа в Паскале, которая при вводе времени (ЧЧ:ММ) выводила бы в виде ЧЧ часов ММ минут с учётом падежей

[kollekcioner]

нужна программа в Паскале, которая при вводе времени (9:26) выводило бы 9 часов 26 минут, при вводе к примеру 1:01 выводило бы 1 час 1 минута.
То есть выводило бы время с учетом падежей и чисел.

[ZX Spectrum-128]

Пример для минут. Для часов постарайтесь сделать самостоятельно.

uses
  sysutils;
var
  t,s:string;
  temp,min,hour:integer;
begin
  write('Введите время в формате чч:мм - ');  readln(t);
  min:=strtoint(t[4]+t[5]);
  temp:=min;
  if temp >19 then
    temp := temp mod 10;
  case  temp of
    0,5..9,11..19 : s := 'минут';
    1 : s := 'минута';
    2..4 : s := 'минуты';
  end;
  writeln(min,' ',s);
  readln;
end.

[Serge_Bliznykov]

0,5..9,11..19 : s := 'минут';

а почему такая нелюбовь к 10 минутам?! )

да и проще же так:

  temp:=min;
  if temp >19 then
    temp := temp mod 10;
  case  temp of
    0,5..19 : s := 'минут';
    1 : s := 'минута';
    2..4 : s := 'минуты';
  end;

[ZX Spectrum-128]

Serge_Bliznykov
Что-то я притормознул
Спасибо!

[kollekcioner]

Сообщение от ZX Spectrum-128

Пример для минут. Для часов постарайтесь сделать самостоятельно.

uses
  sysutils;
var
  t,s:string;
  temp,min,hour:integer;
begin
  write('Введите время в формате чч:мм - ');  readln(t);
  min:=strtoint(t[4]+t[5]);
  temp:=min;
  if temp >19 then
    temp := temp mod 10;
  case  temp of
    0,5..9,11..19 : s := 'минут';
    1 : s := 'минута';
    2..4 : s := 'минуты';
  end;
  writeln(min,' ',s);
  readln;
end.

А можете объяснить пожалуйста чуть подробней, что чему присваиваем? Просто не понимаю как выходит так что мы вправе вводить значение число:число(через двоеточие)

[cosmopolit]

По сути вводится не число, вводится строка. Смотрите типы переменных !