Помогите мне кто-нибудь с задачей на паскале. Найти максимальный элемент в двумерном массиве.Очень нужно!)

В общем, я вот так записала программу но что- то в ней не то, потому что она не максимальный выводит
var a:array[1..10,1..5] of integer;
i,j,max:integer;
begin
randomize;
for i:=1 to 10 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;

for i:=1 to 10 do
max:=a[i,1];
begin

for j:=1 to 5 do

begin
if a[i,j]>max then max:=a[i,j];
end;
writeln('max=',max);
end;
writeln;
end.

Все равно что то не то. Вот какой ответ получаем в результате программы (см. ниже)
20 30 33 46 22
27 22 32 23 31
0 21 43 34 30
16 41 24 2 46
36 10 46 18 24
46 4 23 7 25
0 36 36 27 10
14 10 39 41 33
21 40 42 4 47
47 41 35 14 7
max=46
max=46
max=46
max=46
max=46
max=46
max=46
max=46
max=47
max=47.Есть еще у кого нибудь варианты?

А нет все все спссибо та прога правильна просто надо было вывод поставить перед последним эндом!!)))