Дана программа: НАЧАЛО
ПОКА нашлось (01) ИЛИ нашлось (02) ИЛИ нашлось (03)
заменить (01, 103)
заменить (02, 10)
заменить (03, 210)
КОНЕЦ ПОКА
КОНЕЦ
Известно, что исходная строка начинается с цифры 0, а далее содержит
12 цифр 1, 15 цифр 2 и 17 цифр 3, расположенных в произвольном порядке.
Сколько цифр 2 будет в строке, которая получится после выполнения данной
программы?

Всё очень просто. Первый делом вы должны искать максимальный элемент массива, запоминая строку, в которой он находится. 
Далее нужно создать два массива : в первый записать значения строки, где находится максимальный элемент, а во второй - тот столбец К.
( Можете принять, что матрица квадратная, иначе следовали бы какие-то другие условия )
После этого уже понятно, как поменять элементы строки и столбца. 
Ещё можно создать дополнительную матрицу, но это будет не выгодно по памяти, да и по времени тоже.
Вроде бы понятно объяснил

Var
  t, h, mm, ss: integer;
  ct, ch, cmm, css: string;

begin
  Write('Введите время в секундах от начала суток -> ');Readln(t);
  h := t div 3600;
  t := t mod 3600;
  mm := t div 60;
  ss := t mod 60;
  Str(h, ch);
  ct := ch + ':';
  Str(mm, cmm);
  if Length(cmm) = 1 then ct := ct + '0' + cmm + ':' else ct := ct + cmm + ':';
  Str(ss, css);
  if Length(css) = 1 then ct := ct + '0' + css else ct := ct + css;
  Writeln('Указано время ', ct)
end.

Тестовое решение:
Введите время в секундах от начала суток -> 27429
Указано время 7:37:09