Помогите переделать этот код под текстовый файл с числовыми данными

Var

i, min, max:integer;

a:array[1 ... 70]of integer;

begin

for i:=1 to 70 do

begin

a[i]:=random (100) ;

write (a[i],' ') ;

if i=1 then min:=a[i]

else if a[i] if a[i]>max then max:=a[i];

end;

writeln;

writeln ('Ответ: ', max-min) ;

end.

Программа:

var

min, max, a: integer;

begin

assign (input, 'input. txt') ; reset (input) ;

read (a) ;

max : = a;

min : = a;

while not (eof (input)) do

begin

read (a) ;

if a > max then max : = a;

if a < min then min : = a;

end;

writeln ('Ответ: ', max - min) ;

end.

Описание программы:

Программа считывает все числа из входного файла "input. txt" и выводит максимальную разность двух чисел