Создать файл, содержащий сведения о телефонах абонентов

Program Test;
Uses graphabc;
{Type tray=record;}
const fname='1.txt';
type baza=record
   name: string[10];
   telephone_number: string[50];
   year_install: integer;
   home: string[50];
end;
 
var
 
f:file of baza; client: array [1..100] of baza;
a:array[1..100] of string;
   k, n: integer;
 
 
procedure proc1;
begin
ClearWindow;
Assign(F,fname );
Rewrite(F);
writeln;
writeln('Введите количество людей');
readln(n);
var i:integer;
for I:=1 to n do
 
  with client [I] do begin
   begin
   ClearWindow;
   writeln ('Введите Фамилию ',' ',i,'-го человека');
   readln (name);
 
   writeln ('Телефонный номер:',' ',i,'-го человека');
   readln( telephone_number);
        
   writeln ('Год установки:',' ',i,'-го человека');
   readln(year_install);
        
   writeln ('Домашний адрес:',' ',i,'-го человека');
   readln(home);
         
   end;
 write(F,client[i]); 
 end;
 
writeln('Файл успешно создан');
 
 
 writeln;
 
while not Eof(F) do
 
close(f);
writeln('Exit - 0');
ReadLn(n);
 
end;
 
 
 
 
procedure proc2;
var
J,i:integer;
var
a:array [1..3] of integer;
 begin
Assign(F,fname );
reset (F);i:=1; 
while not Eof(F) do 
  begin
  for j:=1 to 3-1 do
  for i:=1 to 3-1 do
  if client[i].year_install>client[i+1].year_install then
   begin
   n:=client[i].year_install;
   client[i].year_install:=client[i+1].year_install;
   client[i+1].year_install:=n;
   end;
  for i:=1 to 3 do
  writeln (client[i].year_install);
 end;
writeln('Exit - 0');
ReadLn(n);
end;
 
 
 
procedure proc3;
var i,n:integer;
 s:string;
begin
 
 
Assign(F,fname );
reset (F);i:=1; 
while not Eof(F) do 
 begin
  read(f,client[i]);
  writeln(client[i].name);
  inc(i);
 end;
CLOSE(F);
n:=i;
writeln ('Введите имя');
ReadLn(s);
for i:=1 to n do
 if (client[i].name=s)  then Writeln('Фамилия по заданному телефону:',i,'-го',' ','человека',' ',client[i].telephone_number);
 
writeln('Exit - 0');
ReadLn(n);
 
end;
 
procedure proc4;
var i:integer;
begin
Assign(F,fname );
reset (F);i:=1; 
while not Eof(F) do 
 begin
  read(f,client[i]);
  writeln(client[i].year_install);
  inc(i);
 end;
CLOSE(F);
for i:=1 to n do
 if (client[i].year_install>= 1940)  then  inc(k);
 writeln('Количество телефонов установленных с 1940 года:', k)  ;
writeln('Exit - 0');
ReadLn(n);
end;
 
 
begin
rectangle(80,50,320,100);
circle (55,75,55);
circle (295,75,55);
circle (295,75,45);
circle (55,75,45);
  write('Для продолжения нажмите любую клавишу!');
  readln;
  ClearWindow;
  repeat
 ClearWindow;
  writeln;
  writeln('Создание нового реестра- 1');
  writeln('В каком году было установлено больше всего телефонов - 2');
   writeln('Поиск номера по фамилии абонента - 3');
  writeln('Сколько телефонов было установлено с 1940 года - 4');
  writeln('Exit - 0');
  ReadLn(n);
  Case n of
    1: proc1;
    2: proc2;
    3: proc3;
    4: proc4;
 end;
  until n <> 0;
  readln;
  textout(20,250,'Buy');
end.