Замена отрицательных чисел нулями

[DasV]

Добрые люди, осталась мелочь. Прошу помощи.
program kontrolnaya;
uses crt;
const N1=3;N2=8;
var
i,j:integer;
f:array[1..N1,1..N2] of integer;
f_matr:text;
function MaxRow: integer;
var
i,j,x,y: integer;
begin
x:=1;
y:=1;
for i:=1 to N1 do
for j:=1 to N2 do
if f[i,j]>f[x,y] then
begin
x:=i;
y:=j
end;
MaxRow:=x;
end;


begin
clrscr;
randomize;
assign (f_matr,'matrica.txt');
rewrite(f_matr);
writeln('matrica');

for i:=1 to N1 do
begin
for j:=1 to N2 do
begin
f[i,j]:=random(201)-100;
write (f[i,j]:5);
write(f_matr,f[i,j]:5);
end;
writeln;
writeln(f_matr);
end;
i:= MaxRow;
write ('nomer stroki',i:2);
write (f_matr,i:2);


close(f_matr);
readln;
end.
Нужно заменить все отрицательные числа нулями в строке с максимальным числом. Подскажите или хоть намекните, как это можно сделать.