Помогите разобрать программу. Опции

[Бездарь]

Помогите пожалуйста мне разобрать, что в этой программе и зачем делалось.
Я подчеркнул красным что не смог понять.

 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. 

for i:=1 to m do
for j:=1 to m do я так понимаю это цикл для того чтоб считать с фаила?

[klem4]

М

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...

for i:=1 to m do
for j:=1 to m do я так понимаю это цикл для того чтоб считать с фаила

в самом начала - да. Ты открываешь файл и читаешь из него значения в матрицу.

[Бездарь]

для чего потом еще раз после закрытия файла цикл for i:=1 to m do.

[Ozzя]

До закрытия. Добавляешь в файл (append), вектор b.

[Бездарь]

да не в программу добавлять не надо ни чего. мне просто нужно понять зачем циклы там и оператор и что они делают.

[volvo]

До закрытия.

После переоткрытия в режиме добавления... Close(f) все-таки был...

[Ozzя]

Что-то туплю я сегодня.

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;

Сравниваются рядом стоящие элементы строки, если левый <= правого, то в вектор b пишется +1, а иначе -1.

[Бездарь]

После открытия фаила для перезаписи зачем вот это?

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

[Ozzя]

В файл пишется вектор b.

[Бездарь]

b[i]:3 вот это что значит?

[Ozzя]

Отводится 3 позиции на вывод числа

[Бездарь]

спс тебе

[Бездарь]

b[i]:3 вот это что значит?

а что за 3 позиии?

[Ozzя]

Длина числа + кол-во пробелов.
Например,
Write(x:3); при x=21
выведет число 21 и перед ним один пробел