Дан двумерный массив a, размером (nm). найти максимальный элемент в каждой строке матрицы среди положительных элементов.

Var a:array [1..50,1..50] of integer;
m,n,i,j,k,max:integer;
begin
writeln ('Введи количество строк и столбцов');
readln (n,m);
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write (a[i,j]:4);
end;
writeln;
end;
max:=0;
for i:=1 to n do begin
for j:=1 to m do
if a[i,j]>max then max:=a[i,j];
writeln ('Максимальный элемент ',i,' строки = ',max);
max:=0;
end;
readln;
end.