Проблема с записью в файл Опции

[klem4]

Нужно написать небольшую тему, типа вот этого : http://forum.pascalnet.ru/forum/index.php?showtopic=3845

C записью в массив все отлично! а вот с файлом проблемма, мы не изучали еще, вот даже на простом примере не получается, файл создается, но он пустой!, покажите на этом примере в чем ошибка :

Код

uses crt;
type
   person=record
   name : string;
          end;

var     p : person;
  file_p : file of person;

Begin
  clrscr;
  assign(file_p,'file_p.dat');
  rewrite(file_p);
  with p do
   begin
      writeln('name=');
      readln(p.name);
      close(file_p);
   end;
readln;
end.

Спасибо.

[klem4]

У меня глюки, или я прав? Смотри, что происходит... В основной программе:

Не может быть! она заработала!!! это я видимо когда эксперементировал, забыл, write в разных местах ставил и забыл убрать [

P.S. А почему

Код

repeat
ch:=readkey;
until (ch in ['Y','y','N','n']);

а не так:

Код

repeat
ch:=upcase(readkey);
until (ch in ['Y','N']);

Потомучто upcase(readkey) мне до этого момента было неизвестно

Спасибо, Volvo. А я уж и не знал что и подумать.. а все из-за невнимательности...