Работа с текстовым файлом, содержащим целые числа

begin
  var m:=ReadAllLines(ReadLnString).Select(Line->Line.ToIntegers.Min).Println;
  m.Count.Println;
  m.Average.Println;
end.

Var f: file of real;
 min:real;
X:real;
 Ch:char;
Begin

Var f: file of real;
 min:real;
X:real;
 Ch:char;
Begin
Assign(f,'Dan1.Dat'); {связь переменной f с внешним файлом Dan1.dat}
{создание файла}
Rewrite(f); {открытие файла для записи}
Repeat
 Write('Введите число ');
 Readln(x); {ввод числа с клавиатуры}
 Write(f,x); {записываем очередное число в файл}
 Write(' Будете ли еще вводить число (да / нет)?');
 Readln(ch);
Until upcase(ch)<>'Y';//функция upcase() преобразовывает символ из нижнего в верхний регистр.
Close(f); {закрываем файл}
{вывод файла на экран}
Reset(f); {открытие файла для чтения}
While not eof(f) do
 Begin
Read(f,x); {считываем очередное число из файла}
Write(x:6:2,' '); {вывод числа на экран}
End;
Close(f); {закрываем файл}
{поиск минимального числа в файле}
Reset(f); {открытие файла для чтения}
Read(f,min); {считываем очередное число из файла}
While not eof(f) do
 Begin
Read(f,x); {считываем очередное число из файла}
if x<min then min:=x;
End;
Close(f); {закрываем файл}
Writeln('Минимальный элемент файла = ', min:6:2);
End.