программа нахождения максимального элемента матрицы

[Stellar_light]

1)Заменить отрицательные элементы кортежа на 0.
2) Найти максимальный элемент матрицы.
Ко второму заданию у меня есть программа , но она не работает подскажите что не так,если можно исправьте, а вот первую я вообще не знаю как делать, помогите пожалуйста
ПРОГРАММА ВТОРОЙ ЗАДАЧИ

const
n= 5;  
m=5 ;   
r= 100;  

var
a: array[1..m,1..n]of integer;
i,x,y,j: integer;  

begin
for i:=1 to m do for j:=1 to n do a[i,j]:=Random(2*r)-r;  
WriteLn('Matrix:');
for i:=1 to m do begin     
for j:=1 to n Write(a[i]:5);   
WriteLn
end;
WriteLn;  
x:=1;  
y:=1;  
for i:=1 to m do for j:=1 to n do if a[i,j]>a[x,y] then begin
x:=i;  
y:=j;  
end;
WriteLn('Max elment of ',a[x,y]],' located at (',x,y,')'); 
end.

[Hacker19_90]

2)

program forum;
const
n= 5; 
m=5 ; 
r= 100; 

var
a: array[1..m,1..n]of integer;
i,x,y,j: integer; 

begin
for i:=1 to m do for j:=1 to n do a[i,j]:=Random(2*r)-r; 
WriteLn('Matrix:');
for i:=1 to m do begin 
for j:=1 to n do Write(a[i,j]:5);
WriteLn
end;
WriteLn; 
x:=1; 
y:=1; 
for i:=1 to m do for j:=1 to n do if a[i,j]>a[x,y] then begin
x:=i; 
y:=j; 
end;
WriteLn('Max elment of ',a[x,y],' located at (',x,y,')');
Readln;
end.

1)Наверно так?

program forum;
const
m=5 ;
r= 100;

var
a: array[1..m] of integer;
i: integer;

begin
for i:=1 to m do a[i]:=Random(2*r)-r;
WriteLn('Matrix:');
for i:=1 to m do  Write(a[i]:5);
WriteLn;
for i:=1 to m do
begin
 if a[i] < 0 then a[i] := 0;
end;
for i:=1 to m do  Write(a[i]:5);
REadln;
end.

[Stellar_light]

спасибо большое))