Дан файл, содержащий вещественные числа. Найти минимальное число

Uses
 CRT;
var
 f,f1:file of integer;
 a,i,n,min:integer;
begin
Clrscr;
Assign(f,'C:\Users\User\Desktop\1.txt');
rewrite(f);
write('Введите числа: ');
readln(n);
write(f,n);
randomize;
for i:=1 to n do
begin
a:=random(10)-3;
write(a:3);
write(f,a);
end;
Close(f);
writeln;
reset(f);
read(f,n);
min:=-minint;
for i:=1 to n do
begin
read(f,a);
write(a:3);
if a<min then
begin
min:=a;
end;
end;
writeln;
Assign(f1,'C:\Users\User\Desktop\11.txt');
rewrite(f1);
write('MIN:=',min);
write(f1,min);
Close(f);
Close(f1);

var
  f: file of real;
  i, n: integer;
  a, min: real;
 
begin
  Assign(f, 'data.dat');
  rewrite(f);
  write('Введите количество чисел в файле: ');
  readln(n);
  randomize;
  for i := 1 to n do
  begin
    a := -n div 2 + random(n);
    write(a:8:2);
    write(f, a);
  end;
  Close(f);
  
  writeln;
  
  reset(f);
  read(f, a);
  min := a;
  while not eof(f) do
  begin
    read(f, a);
    if a < min then
      min := a;
  end;
  write('MIN: ', min);
  Close(f);
end.