(Free Pascal) подпрограмма

[Nastya1221]

Написать подпрограмму,которая в таблице обнуляет элементы,стоящие в строках или столбцах,содержащих нули.

Я написала следующее:

Type
Telem=single;
Pline=^Tline;
Tline=array[1..1] of Telem;
Ptable=^Ttable;
Ttable=array[1..1] of Pline;



Function NULI(x:Ptable;Var m,n:integer):boolean;
Var S:Telem;
i,j,k,l:integer;
Begin
For i:=1 to n do
For j:=1 to m do
Begin
If x^[i]^[j]=0 then

For k:=1 to n do {зануление по столбцам}
x^[k]^[j]:=0;
For l:=1 to m do {зануление по строчкам}
x^[i]^[l]:=0;
end;
end;

Я уже писала на данном форуме и мне написали программу, но нужна подпрограмма!!
Написать надо по следующему алгоритму:
1)проверить в 1-ой строке есть ли нули?
2)Со 2-ой по n-ю строчку
Проходим по строке,если нашли ноль,записываем в 1 строку в этот же столбец 0.
3)идем по строке,где есть 0 зануляем
4)Если NULI=true обнуляем 1-ю строчку
Я просто не понимаю как это надо писать

[zmey31313]

Я уже писала на данном форуме и мне написали программу, но нужна подпрограмма!!

В чем в общем то проблема, если программа есть замените несколько строк подпрограммой станет, а с нуля просто так ни кто не напишет, все ценят своё время...