Словесный алгоритм нахождения в матрице для каждой строки числа элементов, кратных 5 и наибольшее из полученных значений (Паскаль)

[BloodyBlade]

Здравствуйте! Нам дали задание сделать словесное описание для программы. Само задание звучит так:

В матрице N (KxK) найти для каждой строки число элементов, кратных пяти, и наибольший из полученных результатов.

По ней я написал программу, получилось следующее (pascal):

program matrica;
const k=3;
var n:array[1..k,1..k] of integer;
    i,j,kr,maxkr:integer;
begin
     for i:=1 to k do
     for j:=1 to k do
     read(n[i,j]);
     maxkr:=n[1,1];
     kr:=0;
     for i:=1 to k do
     begin
          for j:=1 to k do
          begin
               write(n[i,j]:3);
               if (n[i,j] mod 5=0) and (n[i,j]<>0) then
               begin
                    inc(kr);
                    if n[i,j]>maxkr then maxkr:=n[i,j];
               end;
          end;
          writeln('| ',kr);
          kr:=0;
     end;
     writeln('Максимальный элемент кратный пяти = ',maxkr);
end.

Помогите, пожалуйста, составить словесный алгоритм. Никак не получается сделать... Заранее благодарен!
p.s. Не знаю почему, но при публиковании записи, форматирование программы исчезает...



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.