Дана матрица размера 5х10. найти максимальное значение в каждом столбце.

Готово,числа рандомные

Program z1;
var a:array[1..100,1..100] of integer;
I,j,max:integer;
Begin
for I:=1 to 5 dp
For j:=1 to 10 do
Read(a[I,j]);
For j:=1 to 10 do
Begin
Max:=a[1,j];
For I:=2 to 5 do
if a[i,j]>max then max:=a[i,j];
Writeln(a[i,j]);
End;
End.