Что-то задача не работет...(процедуры и ф-ции, лог.вектор)

[katya36]

Перепроверяю уже раз 10! Не знаю в чем ошибка! Препод говорит всё правильно, только пару небольших ошибочек, из-за которые программа и не работает!! Помогите пожалуйста мне из обнаружить!!!)

{Пусть дана матрица A(nxn). Посторойте логический вектор, каждый элемент которого равен true, если в строке существует элемент, делящий весь массив на две части с одинаковой суммой элементов в каждой.}
program p106ex17;

{$APPTYPE CONSOLE}
uses
 SysUtils;

const
  n=4;

Type
   Tstr = array[1..n] of real;
   Tmatr = array[1..n] of Tstr;
   TVect = array[1..n] of boolean;

var
  Vect: TVect;
  A: Tmatr;
  i:integer;


procedure read_matr (var M:Tmatr);
var i,j:integer;
begin
 for i:=1 to n do
   for j:=1 to n do
     read(M[i,j]);
 readln
end;


function Log_Vect(A:Tstr):boolean; //Искомый логический вектор
var i,j:integer;
    sm1,sm2,sum:real;
    Ok:boolean;
begin
sum:=0;
for i:=1 to n do
  Sum:=Sum+A[i];

  Sm1:=A[1];
  Sm2:=Sum-A[1];
  ok:=false;
  j:=1;
while (j<=n-1) and (not ok) do
    Sm1:=Sm1-A[j];

  if Sm1=Sm2 then
    Ok:=true
  else
    Sm1:=Sum+A[j];

Log_Vect:=ok

end;

begin
read_matr(A);
writeln('Matrica A:');

for i:=1 to n do 
 begin
 vect[i]:=Log_Vect(A[i]);
 write(vect[i],' ');
 end;
readln
end.

[katya36]

Ну в чем же дело, подскажите!??!?

[alexBlack]

  Sm1 := 0;
  Sm2 := Sum-A[1];
  ok  := false;

  j:=1;
  while (j <= n-1) and (not ok) do begin
     Ok  := Sm1 = Sm2;
     Sm1 := Sm1+A[j];
     inc(j);
     Sm2 := Sm2-A[j];
  end;

Что-ж отладчиком не пользуетесь ? Сразу бы увидели, что в цикле begin/end отсутствует и j не меняется.

[katya36]

Спасибо!
да я отладчиком пользоваться неу мею, нам такого не объясняли ещё!(