Файл записей

Label M1;
Type gost=record
          Nomer: integer;     {номер}
          Famil: string[15];  {фамилия жильца}
          IO   : string[5];   {инициалы жильца}
          end;
var w:char;
      gg: file of gost;
{переменная для доступа к файлу}
       g : gost;
{переменная для доступа к записи}
I,b,p,s,a:integer;
k,g1,g2,l: string;
F:string[20];
ff: boolean; {логич.тип}
WaitTime: word;
{-------таблица----------}
procedure Tabl;
begin
writeln('         Список жителей:');
writeln;
writeln('---------------------------------');
writeln('| Номер |   Фамилия  | Инициалы |');
writeln('---------------------------------');
end;
{--------создание файла записи-----------}
Procedure Org;
Begin
writeln ('     Введите данные о жильцах гостиницы:');
writeln;
writeln ('  Чтобы закончить ввод, введите номер = 101');
writeln;
Begin
write('  Введите имя файла ');readln(F);
Assign (gg,F+'.doc');
Rewrite(gg);{ создаем новый файл }
{для удобного обращения к полям записи используем With }
While True do
begin
  With g do
 begin
  writeln;
  write('Введите номер     '); readln(Nomer);
if nomer = 101 then
 begin
Close(gg); Exit
end;
  write('Введите фамилию   ');readln(Famil);
  write('Введите инициалы  ');readln(IO);
  writeln;
  write(gg,g);
end; end; end;
end; {org}
{--------расширение файла записи---------}
Procedure Rash; { процедура расширения файла}
   Begin
writeln ('     Введите данные о жильцах гостиницы:');
writeln;
writeln ('  Чтобы закончить ввод, введите номер = 101');
writeln;
write('  Введите имя файла ');readln(F);
Assign (gg,F+'.doc');
Reset(gg); { откроем существующий файл – при этом указатель файла будет установлен у первой записи }
{ установим указатель в конец файла процедурой Seek}
Seek(gg,FileSize(gg));
While True do
begin
 With g do
 begin
 writeln;
  write('Введите номер     '); readln(Nomer);
if nomer = 101 then
begin
Close(gg); Exit
end;
  write('Введите фамилию   ');readln(Famil);
  write('Введите инициалы  ');readln(IO);
  writeln;
  write(gg,g);
end;
end;  end;
{----------печать-----------}
 Procedure pr(a,b:integer;Nomer:integer;Famil:string;IO:string);
 begin
writeln(' ',Nomer:3,Famil:15,'    ',IO:5);
 end;
{------ввод информации из файла----------}
Procedure Vvod_f;
Begin
{присвоим файловой переменной имя}
writeln; write('  Введите имя файла ');readln(F);
Assign (gg,F+'.doc');
Reset(gg); { откроем существующий файл – при этом
указатель файла будет установлен у первой записи }
{для удобного обращения к полям записи используем With }
Tabl;
With g do
While not Eof(gg)do{пока не конец файла}
begin
read(gg,g); {прочитали запись}
        {вывели её на экран, используя форматный вывод }
pr(5,6,Nomer,Famil,Io);
end; {while}
close(gg); {закрыли файл}
end.