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

Question

В общем, я вот так записала программу но что- то в ней не то, потому что она не максимальный выводит 
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.Есть еще у кого нибудь варианты?
А нет все все спссибо та прога правильна просто надо было вывод поставить перед последним эндом!!)))

user_8392142 · Accepted Answer

Очень просто. Организуем цикл FOR по всем элементам массива и сравниваем с соседним. Большее значение записываем в другую переменную. На конце цикла имеем максимальный элемент массива. 
Или нужно полностью весь код программы?

maksim_golev · Answer

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; 
{поиск max} 
max:=a[1,1] 
for i:=1 to 10 do 
for j:=1 to 5 do 
if a[i,j]>max then 
max:=a[i,j]; 
writeln('max=',max); 
writeln; 
end. 
вот и все