Двумерные массивы. Delphi.

[deni3x]

Помогите, пожалуйсто, решить задачку
Дана матрица А[5x3]
Тип real
В матрице найти максимальные элементы по строкам.

[deni3x]

вот набросал кое-что.
но программка не запускается. в чем ошибка :?

var a:array[1..5,1..3] of real;

i,j:integer;
max:real;
begin
max:=a[i,1];
for i:=1 to 5 do

for j:=1 to 3 do
a[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1]);
for i:=1 to 5 do
begin
if
max<a[i,j] then
max:=a[i,j];



StringGrid2.Cells[i-1,0]:=FloatToStr(max);
end;
end;
end.