Developing.ru

....
  ASSIGN(T, 'c:\somefile.txt');
  RESET(T);
  readln(T,M); 
  readln(T,N); 
  for j := 1 to m do
  begin
    for i := 1 to n do
    begin
      readln(T,mas[i, j])
    end;
    if mas[i, 1] > mas[i, m] then k := i;
  end;
  close(T);
....

[b]maia[/b], вы в который уже раз наредкость некорректно описываете условие задачи. Что вам надо сделать? Заменить в приведенной программе ввод с клавиатуры на ввод из файла?
Формат файла какой должен быть?
Например так пойдет?

[code]
....
ASSIGN(T, 'c:\somefile.txt');
RESET(T);
readln(T,M);
readln(T,N);
for j := 1 to m do
begin
for i := 1 to n do
begin
readln(T,mas[i, j])
end;
if mas[i, 1] > mas[i, m] then k := i;
end;
close(T);
....
[/code]

в VAR
переменные:
T: TEXT;
mas:array[1..100,1..100] of real;


Файл должен содерджать числа, по 1 в каждой строке в следующем порядке:
-----8<----
M
N
mas[1,1]
mas[2,1]
...
-----8<----


PS
Это вместо куска:
[i]for j := 1 to m do
begin
for i := 1 to n do
begin
write('mas[', i, ',', j, '] = ');
readln(mas[i, j])
end;
if mas[i, 1] > mas[i, m] then k := i;
writeln
end;[/i]

Помогите сделать из внешнего файла !!!


const
n = 3; m = 4;
var
mas: array[1..n, 1..m] of real;
i, j, k: integer;
sr: real;
begin
for j := 1 to m do
begin
for i := 1 to n do
begin
write('mas[', i, ',', j, '] = ');
readln(mas[i, j])
end;
if mas[i, 1] > mas[i, m] then k := i;
writeln
end;

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

writeln;
for i := 1 to m do sr := sr + mas[i, k];
sr := sr / n;

for i := 1 to n do
begin
for j := 1 to m do
begin
if j <> k then mas[i, j] := mas[i, j] - sr;
write(mas[i, j]:6:2)
end;
writeln
end;
readln
end.