Пример программы с использованием массива чисел, считываемых из внешнего файла. Поиск максимального по модулю числового значения.

uses
  WinCrt;
var
  I,n: integer;
  X: array [0..50] of real;
  Xmax: real;
  f:text;
begin

(* Связывание файловой переменной с файлом данных 'data.txt' *)
  assign(f,'data.txt');
  reset(f);

(* Считывание данных из файла *)
  writeln('Количество чисел?');
  read(n);
  for i:=0 to n-1 do
    read(f,X[I]);

(* Данные считаны. Файл нужно закрыть *)
  close(f);

(*Поиск максимального абсолютного числового значения в массиве*)
  Xmax:=abs(X[0]);
  for i:=1 to n-1 do
    if Xmax<abs(X[i]) then
     Xmax=abs(X[i])
  writeln(' Xmax =',Xmax:10:4);

end.

Пояснения

Структура программы
Uses
var
Правила записи имен
Integer
real
Массивы переменных
Работа с файлами
begin
assign
reset
writeln
read
for...do...
Присвоение (:=)
close
if...then...
end