Программа по взятию инфромации из внешнего файла

[Stelix]

нужно что бы эта прога брала массив из внешнего файла
помогите пожалуйста

Program V33_N8;
uses crt;
var
 A        :array[1..5,1..5]of real;
 P        :array[1..5]of real;
 i,max,j  :byte;
BEGIN
 clrscr;
 max:=1;
 writeln('Введите матрицу 5х5:  ');
 for i:=1 to 5 do begin
  P[i]:=1;
  for j:=1 to 5 do begin
   read(A[i,j]);
   P[i]:=P[i]*A[i,j];
  end;
  if P[i]>P[max] then max:=i;
end;
 for i:=1 to 5 do A[2,i]:=A[2,i]-P[max];
 writeln;
 writeln('Результирующая матрица*: ');
 for i:=1 to 5 do begin
  for j:=1 to 5 do write(A[i,j]:5:0);
  writeln;
 end;
 while not keypressed do;
END.

[Serge_Bliznykov]

тут всё упирается в то, что за внешний файл (т.е. КАК ваши данные сохранены во внешнем файле)... Диапазон возможных решений - достаточно широкий - начиная от текстового файла с числами и заканичивая бинарными/типизированными файлами...
Предлагаю САМЫЙ простой вариант - числа в текстовом файле, каждое число на отдельной строке. Т.е. получается файл из 25 строк с числами.
Имя файла пусть будет "CHISLA.TXT".
Тогда программа получается приблизительно такая:

var f: text; {описываем файловую переменную для работы с текстовым файлом }
...
begin
  Assign(f,'CHISLA.TXT');
  Reset(f);
 max:=1;
 writeln('Введите матрицу 5х5:  ');
 for i:=1 to 5 do begin
  P[i]:=1;
  for j:=1 to 5 do begin
   readln(f,A[i,j]);
   P[i]:=P[i]*A[i,j];
  end;
  if P[i]>P[max] then max:=i;
end;
close(f);
...

[Stelix]

Сделал сам,до подсказки,писал прямо с занятия,но все равно большое спасибо!