Задача по PASCAl. Помогите сделать. надо чтоб из внешнего файла

[Waia]

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

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.

[Serge_Bliznykov]

в секции переменных опишите переменную f
в начале программы откройте файл
Assign(f, 'CHISLA.TXT');
Reset(f);

в конце, не забудьте закрыть - Close(f)

а ваш кусок ввода данных замените на

  for j := 1 to m do
  begin
  for i := 1 to n do
      readln(f; mas[i, j]);
  if mas[i, 1] > mas[i, m] then k := i;
  end;

(Readln(f,...) - это при условии что в файле CHISLA.TXT будет n*m чисел, причём каждое на отдельной строке...)

А это просто, как отдельный пример:

var
  f : text;
  i : integer;
begin
  Assign(f, 'CHISLA.TXT');
  Reset(f);
  while not eof(f) do
  begin
    Readln(f,i);
    WriteLn(i);
  end;
  Close(f);
end.