Zapis typu real do pliu txt

Jak zapisać zmienną real do pliku txt?var f,g:text Biorę liczbę z pliku f i zapisuje do g ale nie działa...

Pokaż kod.

 var f:text;
    g:text;
    z:real;

begin
     Assign(f,'a.txt'); Reset(f);
     Assign(g,'b.txt'); Rewrite(g);
     while not Eof(f) do
     begin
         read(f,z);
         writeln(g,z:0:2);
     end;
readln();
end.

Tak wiem tam nie zamknąłem plików...
ale mam inny problem mam tak duże liczby, że nie mieszczą się nawet w longint a gdy użyje real to wyskakuje mi błąd 106 oczekiwano wyrażenia znakowego gdy robię na longint to wszytko działa tylko, że część tych liczb się nie mieści więc jakiego typu mam użyć?

Trzeba sprawdzić co tak naprawdę siedzi w pliku 'a.txt'.

Tak już doszedłem do tego na końcu pliku była pusta linia...