Delphi, матрица и строки

[programming]

Всем доброго вечера!
Передо мной стоит такая задача: составить программу, которая считает сумму элементов строки квадратной матрицы и сравнивает ее с другими суммами. Если попадаются две равные - вывести сумму и номера строк, у которых она равна. Условие: никаких доп. массивов для хранения сумм. В общем-то, из-за этого условия мне пришлось все делать через циклы, но у меня такое ощущение, что я в них напортачила (даже почти уверена).
Вот что получилось у меня:

{$APPTYPE CONSOLE}
uses
  SysUtils;
var a: array [1..11, 1..11] of integer;
   i, j, n, sum1, sum2, num1, num2: integer;
   flag: boolean;
begin
randomize;
  writeln('Input value of n:');
  readln(n);
for i:=1 to n do
 begin
   for j:=1 to n do
   begin
      a[i,j]:= random(10);
      write(a[i,j], ' ');
   end;
   writeln;
 end;
sum1:=0;
sum2:=0;
num2:=0;
flag:= false;
  for i:=1 to n do
  begin
    for j:=1 to n do
      begin
      sum1:=sum1+a[i,j];
      num1:=j
      end;
    if sum1=sum2 then
      begin
      write('Summa: ', sum1, 'from strings:', num1, ' and ', num2);
      flag:=true;
      end;
    sum2:=sum1; {<=== Вот как раз сомнительный момент.}
    num2:=num1;
  end;
if not(flag) then writeln('There is not such strings');
readln;
end.

Мне кажется, что там надо либо все впихнуть в еще один цикл, либо ларчик просто открывался, а я в упор не вижу. Заранее спасибо за помощь!

+

Задание со строками. Дан текст. Надо вывести количество предложений, в которых слов больше 3. Вроде простая задача, но у меня в половине случаев счетчик немного "промахивается" и выдает неправильный результат. А в половине других - правильный. Понять не могу, где у меня огрешность, она ведь мелкая какая-нибудь по закону Мёрфи.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var txt, dot, space, st: string;
    len_txt, len_st, st_end, word_end, now, nost: integer;
begin
writeln('Enter a text:');
readln(txt);
dot:= '.';
space:= ' ';
len_txt:=length(txt);
now:=0;
nost:=0;
while len_txt<>0 do
  begin
   st_end:= pos(dot, txt);
   len_txt:= len_txt-st_end;
   st:= copy(txt, 1, st_end-1)+space;
   len_st:= length(st);
   delete(txt, 1, st_end);
   while len_st<>0 do
      begin
      word_end:= pos(space, st);
      len_st:=len_st-word_end;
      now:= now+1;
      delete(st, 1, word_end);
      end;
   if now>3 then nost:=nost+1;
   now:=0;
  end;
writeln('Number of strings: ', nost);
readln;
end.

P.S. У меня сегодня день кода, так что не ругайтесь, если я тут тем напложу C: