сделать базу данных

program depytat;
uses crt;
type
anketa=record
  fam:string[40];
  sved:string[40];
  stag:string[40];
  poezdki:string[40];
 
  end;
var
fp:text;
Z: array [1..5] of anketa;
i,n:integer;
begin
clrscr;
assign(fp,'depytat.DOC');
rewrite(fp);
writeln;
   writeln ('Êîëè÷åñòâî ïóíêòîâ:');
   readln(n);
   for i:=1 to n do
   with Z[i] do begin
   writeln;
   writeln('fam depytata: ');
   readln(fam);
   writeln('svedenia o partii:');
   readln(sved);
   writeln('depytatskiy stag:');
   readln(stag);
   writeln('poezdki: ');
   readln(poezdki);
 
   writeln;
     writeln('Íàçâàíèå íàñåëåííîãî ïóíêòà: ',fam)    ;
     writeln('ñâåäåíüÿ î ïàðòèè: ',sved) ;
     writeln('ñòàæ: ',stag) ;
     writeln('êîë- âî ïîåçäîê: ',poezdki);
 
   end;
   for i:=1 to n do begin
   with Z[i] do
   writeln(fp,'ôàìèëèÿ äåïóòàòà:',fam,' ñâåäåíèÿ î ïàðòèè:',sved,' ñòàæ:',stag,' ïîåçäêè:',poezdki,);
   end;
 
 
close(fp);
reset(fp);
read(fp)
end.