Паскаль. Программа + Модуль.

[Branbal]

Program N1;
Uses CRT;
Var A: array [1..10,1..10] of integer;
R,m,n,I,J,Z,S,k,l: integer;
B:array [1..10] of integer;
F:Boolean;
Begin
readln(n,m);
For I:=1 to m do
For J:=1 to n do
Read (A[I,J]);
k:=0;
For I:=1 to m do
Begin F:=false; Z:=A[I,1];R:=0
While Z<>0 do
Begin R:=R+1; Z:=Z div 10
end;
For J:=2 to n do
Begin S:=A[I,J];l:=0;
While S<>0 do
Begin l:=L+1;S:=S div 10
end;
If R=l then
Begin k:=k+1;B[k]:=I
end;
end;
For I:=1 to k do
writeln (B[I]);
readkey
end.


Вот программа, к ней претензий нет. Теперь не знаю что сделать, но ее нужно:
А) офиормить в виде основной программы и процедуры (функции) с параметрами программу
Б) оформить в виде модуля программу, выполняющую обработку матрицы

[Branbal]

Составить вектор из номеров строк матрицы, где содержатся только числа с одинаковой разрядностью.
Вот задание к программе было.

[Branbal]

Никаких идей? Темы с названием "помогите" куда чаще проверяются....

[Branbal]

АП! Да ответит кто!

[Branbal]

Ну куда написать чтобы решили?

[Branbal]

НАРООООД!!! РЕШИТЕ ПЛЗ ЗАДАЧКУ!!!

[Branbal]

Оооочень нужно, ну помогиииите плз!!!