Вообщем такая у меня задача: Разместить матрицу S[5*5] в текстовом файле *.тхт, считать из файла по столбикам максимальный элемент каждого столбика, потом вместо нулефых элементов столбца поставить его макс. элемент, и дописать в этот файл. Вот мой незаконченный вариант програмы:

program sr3(one);
uses wincrt;
const
  N= 5;
var
  f: text;
  m: array [1..n,1..n] of real;
  i,j: integer; xmax:array[1..n]of real; kl:real;
begin
  assign (f,'prog.txt');
  reset(f);
  while not EOF(f)  do
        begin
        for i:=1 to n do
        for j:=1 to n do
        read (f, m[i,j]);
        end;
  for i:=1 to n do
        begin
        for j:=1 to n do
        write(' ',m[i,j]:2:0);
        writeln;
        end;
  for j:=1 to  n  do
        begin
        xmax[i]:=m[1,j]; kl:=0;
        for i:=1 to n do
            begin
            if (xmax[i]<m[i,j]) then xmax[i]:=m[i,j];{Находим максимальный элемент столбца}

            end;
        writeln(' ',xmax[i]:2:0,' ',i,' ',j);
        end;
        for i:=1 to n do
        begin
        kl:=0;
        for j:=1 to n do
        if m[i,j]=kl then
        m[i,j]:=xmax[j];
        xmax[i]:=m[i,j];

        end;
        for i:=1 to n do begin
        for j:=1 to n do
       write(' ',m[i,j]:2:0);

       writeln;

           writeln;
       end;

close(f);

end.

и почемуто первые 2 раза программа вроде как работала, а потом перестала( :mad: