Описать сведения о записной книжке

type      rec = record
          surname: string[20];
          name: string[20];
          tel: integer;
          dr: array [1..3] of integer;
          end;
var n,nmenu,i,j: integer;k:byte; vmas: array [1..8] of rec;s:boolean;
f1:file of rec;
v:rec;
label T;
begin
k:=0;
assign(f1,'Note.dat');
reset(f1);
while not eof(f1) do begin
read(f1,vmas[k+1]);
k:=k+1;
end;
close(f1);
T:
 n:=1;
     writeln       ('____________________________');
     writeln       ('|           MENU           |');
     writeln       ('| 1) Ввод данных           |');
     writeln       ('| 2) Вывод людей с др      |');
     writeln       ('| в выбранном месяце       |');
     writeln       ('| 3)Вывод по алфавиту      |');
     writeln       ('| 0) Выход                 |');
     writeln       ('____________________________');
     
     while n>0 do
  begin
     writeln ('выберите пункт меню');
     readln  (nmenu);
     
     case nmenu of
       1: //Ввод
       begin
       reset(f1);
       writeln('Введите фамилию');
       readln(v.surname);
       writeln('Введите Имя');
       readln(v.name);
       writeln('Введите телефон');
       readln(v.tel);
       writeln('Введите день рождения через пробел');
       readln(v.dr[1],v.dr[2],v.dr[3]);
       seek(f1,k);
       write(f1,v);  
       close(f1);
        goto T;
       end;
       2:begin 
       writeln('Введите месяц в цифровом представлении, например "01"');
       readln(j);
       s:=false;
       for i:=1 to 8 do 
        if vmas[i].dr[2]=j then begin
        s:=true;
        writeln('День рождения этого человека во введенном месяце',vmas[i].surname,vmas[i].name)
        end;
       if s=false then writeln('Нет таких людей');
       goto T;
       end;
       3:begin
       for j:=1 to 8 do 
       for i:=1 to 7 do
        if vmas[i].surname>vmas[i+1].surname then begin
        v:=vmas[i+1];
        vmas[i+1]:=vmas[i];
        vmas[i]:=v;
        end;
       for i:=1 to 8 do 
       if vmas[i].tel<>0 then
       writeln(vmas[i].surname,vmas[i].name,vmas[i].tel,vmas[i].dr);
       goto T;
       end;
       0:exit;
       end;
       end;
end.