Поиск строк матрицы с одинаковыми суммами. Pascal

[fr330n]

Доброго времени суток!
Прошу помочь с написанием данного задания.
Необходимо найти строки, суммы которых одинаковы.
Матрица NxN.

Пример:

1 2 3
3 2 1
2 3 2

Получаем:
Строка - 1,2

[k0tone]

Разбирайтесь молодой человек:

program test; 
uses crt;
var a:array [1..64, 1..64] of integer;
    sum:array [1..64] of integer;
    i,j,k,l,N:integer;
begin
 write('Vvedite n:');
 readln(n);
 for i:=1 to n do
 for j:=1 to n do
 readln(a[i,j]);
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;
 sum[1]:=0;
 for i:=1 to n do
 for j:=1 to n do
 sum[i]:=sum[i]+a[i,j];
 for i:=1 to n-1 do
 for j:=1 to n-i do
 if sum[i]=sum[j+i] then
  begin
   writeln(i,j+i);
  end;
 readln;
end.