Строки,зачет после выходных, спасибо!!! = )

[wef1k]

1-ая. Дан целочисленный кввадратный массив (6x6). Написать програму вычисляющую сумму максимальных элементов из каждой строки. Предполагается, что в каждой строке такой элемент 1ин. Выдать значение суммы.
2-ая. Так же 6x6 . НАписать программу, вычисляующую сумму элементов строки, в которой расположен элемет с максимальным значением. Предпологается, что такой элемент единственный.
Заранее спасибо, буду очень благодарен. Я просто не могу понять как находить тот или иной элемент в каждой строке , и запоминать его, или не запоминать))).

[alex_fcsm]

uses crt;
const n=6;
var i,j,max,sum:integer;
    a:array[1..n,1..n] of integer;

begin
clrscr;
randomize;
for i:=1 to n do
begin
 for j:=1 to n do
  begin
  a[i,j]:=random(50);
  write(a[i,j]:3);
  end;
writeln;
end;

sum:=0;
for i:=1 to 6 do
 begin
  max:=1;
   for j:=2 to 6 do
    if a[i,j]>a[i,max] then max:=j;
 sum:=sum+a[i,max];
 end;
writeln(sum);
end.

[alex_fcsm]

uses crt;
const n=6;
var i,j,maxl,maxr,sum:integer;
    a:array[1..n,1..n] of integer;

begin
clrscr;
randomize;
for i:=1 to n do
begin
 for j:=1 to n do
  begin
  a[i,j]:=random(50);
  write(a[i,j]:3);
  end;
writeln;
end;
maxl:=1;maxr:=1;
for i:=1 to 6 do
 for j:=1 to 6 do
 if a[i,j]>a[maxl,maxr] then begin
                              maxl:=i;
                              maxr:=j;
                             end;
for i:=1 to 6 do
 sum:=sum+a[maxl,i];
writeln(sum);
end.

[wef1k]

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