Паскаль. написать программу электронных часов. вводятся минуты и секунды, и часы начиная отсчет с них, начинают работать. то есть должен быть такой вид 23: 44 и как дойдёт до 59, начинается по новой

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
uses GraphABC;
begin
  var s:=ReadlnString('Укажите время MM:CC');
  var m:=s.Left(2).ToInteger;
  var c:=s.Right(2).ToInteger;
  var i:=m;
  var j:=c;
  Font.Size:=60;
  Font.Color:=clBlue;
  repeat
    while i<60 do begin
      while j<60 do begin
        if i<10 then s:='0'+i+':' else s:=i+':';
        if j<10 then s+='0'+j else s+=j;
        FillRect(50,100,350,400);
        DrawTextCentered(50,100,350,400,s);
        Inc(j);
        Sleep(1000)
        end;
      j:=0;
      Writeln;
      Inc(i)
      end;
    i:=0
  until False
end.

Число 354:
Делим число на 2 и выписываем остатки
354 = 177·2 + 0
177 = 88·2 + 1
88 = 44·2 + 0
44 = 22·2 + 0
22 = 11·2 + 0
11 = 5·2 + 1
5 = 2·2 + 1
2 = 1·2 + 0
Последний множитель перед 2 равный 1 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 101100010
число 478:
Делим число на 2 и выписываем остатки
478 = 239·2 + 0
239 = 119·2 + 1
119 = 59·2 + 1
59 = 29·2 + 1
29 = 14·2 + 1
14 = 7·2 + 0
7 = 3·2 + 1
3 = 1·2 + 1
Последний множитель перед 2 равный 1 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 111011110
число 375:
Делим число на 2 и выписываем остатки
375 = 187·2 + 1
187 = 93·2 + 1
93 = 46·2 + 1
46 = 23·2 + 0
23 = 11·2 + 1
11 = 5·2 + 1
5 = 2·2 + 1
2 = 1·2 + 0
Последний множитель перед 2 равный 1 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 101110111

Это таблица истиности
над В черточка v C ^ над А черточка
v-"или это сложение
^ это умножение
над Х бувкой четрточка это другое число если 0 то 1 если 1 то 0 или   это "не"
а б с над В чёрточка над А чёрточка не В или с     не в или с и не а
0 0 0           1                       1                 1                           1
0 0 1            1                     1                 1                            1
0 1 0           0                      1                  1                           1
0 1 1           0                     1                   1                           1
1 0 0            1                   0                   1                             0
1 0 1             1                  0                     1                              0
1 1 0               0              0                      1                               0         
1 1 1                 0               0                    1                               0
ответ пиши короче f(A,B,C)=не В или С и не А =не А