Вообщем такая у меня задача: Разместить матрицу 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.