[Pascal] Задача с двумерными массивами

[MaximV]

В матрице [7,7] определить номер строки,сумма элементов который наибольшая.
"Вот наработки". пожалуйста решите таким же методом,а то препод не примет так как скажет что не сам решил.

program uravnenie;
uses crt;
var a:array [1..50,1..50] of real;
          i,j,n1,n2:integer;
                max:real;
begin
clrscr;
for i:=1 to 7 do
for j:=1 to 7 do
  begin
  writeln('a[',i,j,']');
  readln(a[i,j]);
  clrscr;
  end;
  max:=a[50,50];
  for i:=1 to n1 do
  for j:=1 to n2 do
  if a[i,j]>max then max:=a[i,j];
  writeln;
  for i:=1 to n1 do
  begin
  for j:=1 to n2 do
  writeln(a[i,j]:5:2);
  writeln;
  end;
  writeln('maximalnii ilement=',max:5:2);
  readkey;
  end.

[BDA]

uses
  crt;

const
  n = 7;

var
  a: array[1..n, 1..n] of real;
  i, j, pos: integer;
  max, s: real;

begin
  clrscr;

  for i := 1 to n do
    for j := 1 to n do
    begin
      write('a[', i, ',', j, ']= ');
      readln(a[i, j]);
      clrscr;
    end;

  pos := 1;
  max := 0;
  for i := 1 to n do
    max := max + a[1, i];
  for i := 2 to n do
  begin
    s := 0;
    for j := 1 to n do
      s := s + a[i, j];
    if s > max then
    begin
      max := s;
      pos := i;
    end;
  end;

  writeln('stroka s maximalnoi summou: ', pos);
  readkey;
end.

[Никита крутой]

uses crt;
var a:array[1..30,1..30] of integer;n,i,j,t,l,l1,s:integer;
begin
       clrscr;n:=7;
       for i:=1 to n do
       for j:=1 to n do
       read(a[i,j]);
       for j:=1 to n do
       t:=t+a[1,j];l1:=1;
       for j:=1 to n do
       begin
              s:=0;
              for i:=1 to n do
              begin
              s:=s+a[i,j];l:=i;
              end;
              if s>t then begin t:=s;l1:=l;end;
       end;
       write(l1);
       readkey;
end.

Работает

[Serge_Bliznykov]

Никита, если я правильно прочитал Ваш код, то он ищет не строку с максимальной суммой, а СТОЛБЕЦ.
Да и переменная L у вас явно лишняя...

Кроме того, чуть выше приведено решение (c) BDA