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

//dig - множество чисел 0,1,2..9
const dig = ['0'..'9'];
var
  s : string[5];
  h, m, r: integer;
begin
  //повторяем ввод пока не будет ввеедено в формате HH:MM
  repeat
    write('введите время (HH:MM): ');
    readln(s)
  //то есть строка не будет состоять из 5 символов и 
  //1,2,4,5 символы не будут входить во множество dig (являться цифрами) и
  //3 символ не будет равен ':'  
  until (length(s) <= 5) and (s[1] in dig) and (s[2] in dig) and
        (s[4] in dig) and (s[5] in dig) and (s[3] = ':');
  //преобразуем подстроку от 1 символа длиной 2, строки s
  //в число h, r код ошибки преобразования
  val(copy(s,1,2), h, r);
  //преобразуем подстроку от 4 символа длиной 2, строки s
  //в число m, r код ошибки преобразования
  val(copy(s,4,2), m, r);  
  //считаем время в минутах
  r := h * 60 + m;
  //выводим
  writeln('в минутах это: ', r)
end.