Указатели. Запись в файл

[_-Re@l-_]

Однако, вот такая проблема.
Вот код:

Uses CRT, DOS;
Type
    player = ^human;
    human = record
    name,fam:string;
    age:integer;
    end;
Var
   A,B,C:player;
   f:text;
Begin
     Clrscr;
     Assign(f,'d:\records.txt');
     Rewrite(f);
     Write('Names = ');
     Readln(A^.Name,B^.Name,C^.Name);
     Writeln(f,A^.name,B^.name,C^.name);
     Write('Surnames = ');
     Readln(A^.fam,B^.fam,C^.fam);
     Writeln(f,A^.fam,B^.fam,C^.fam);
     Write('Ages = ');
     Readln(A^.age,B^.age,C^.age);
     Writeln(f,A^.age,B^.age,C^.age);
     Writeln('OK! Completed!');
     Close(f);
     readln;
end.

По идее, программа запрашивает некоторые данные у пользователя и должна записать эти данные в текстовый файл, однако она просто запрашивает данные, но в файл не записывает, в файл она добавляет лишь только какие-то цифры "25252"(причём почему-то в четвёртую строку). Почему так?

[Stilet]

Ай-яй-яй... А выделять память кто будет?
new(a);new(b);new(c);

[_-Re@l-_]

Ах да...Позабыл я про New и Dispose...Старею..