помогите переделать этот код под текстовый файл с числовыми данными
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.

а вы не могли бы мне помочь, еще с одной задачкой в этой же теме, просто никак не могу ее сделать?

конечто

http://znanija.com/task/16060088 вот ссылка

Программа: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" и выводит максимальную разность двух чисел