Запись и чтение вещественных чисел в типизированном файле

var f: file of string;
 flag:boolean;
 c:string;
 n,a,max:real;
 k,err:integer;
begin
assign(f,'text.txt');
rewrite(f);
max:= - maxreal;
flag:=true;
writeln('Введите числа, для выхода введите *');
   repeat
         readln(c);
         val(c,n,err);
         writeln('err =', err);
         if c <> '*' then
            if (err <> 1) then write(f,c)
            else writeln('Введите число')
         else flag:=false;
   until (flag<>true);
n:=filesize(f);
   if n = 0 then
      writeln('Числа не были введены')
   else
       begin
       k:=0;
       while k < n do
             begin
                  seek(f,k);
                  read(f,c);
                  val(c,a,err);
                  if (a > max) then
                     max:=a;
                  k:=k+2;
             end;
       writeln('Max = ',max);
       end;
close(f);
end.

var f:file of real;

var f: file of real;
 flag:boolean;
 c:string;
 n,a,max:real;
 k,err:integer;
begin
   assign(f,'text.txt');
   rewrite(f);
   flag:=true;
   writeln('Vvedite chislo, dlya vihoda vvedite *');
   repeat
         readln(c);
         val(c,a,err);
         writeln('err =', err);
         if c <> '*' then
            if (err <> 1) then write(f,a)
            else writeln('Vvedite chislo')
         else flag:=false;
   until flag<>true;
   n:=filesize(f);
   if n = 0 then writeln('Chisla ne vvedeni')
   else
       begin
       seek(f,0);
       read(f,max);
       k:=2;
       while k < n do
             begin
                  seek(f,k);
                  read(f,a);
                  if (a > max) then max:=a;
                  k:=k+2;
             end;
       writeln('Max = ',max);
       end;
close(f);
end.