Помогите найти ошибку в программе. Опции

[Бездарь]

вот задача: Дана матрица А(МхМ), записанная в текстовый файл. Сформировать вектор В(М) по следующим правилам: если i-тая строка матрицы (i=1,2, …, m) есть убывающая последовательность, элементу вектора bi присвоить значение -1, в противном случае значение 1. Полученный файл дописать в файл.

 
program z;

const m=5;
var f:text;
    a:array[1..m,1..m] of integer;
    b:array[1..m] of integer;
    i,j:integer;

begin

assign(f,'1.txt');
reset(f);
for i:=1 to m do
for j:=1 to m do
read(f,a[i,j]);
close(f);

for i:=1 to m do
begin
  b[i]:=-1;
  for j:=2 to m do
    if a[i,j-1]<=a[i,j] then b[i]:=1;
end;

append(f);
for i:=2 to m do
write(f,b[i]:3);
close(f);

end.

.

Задача вычисляет не правильно. Что не так?

Сообщение отредактировано: Бездарь - 28.05.2007 11:53