Разработать свой метод реализации БД DNS

uses crt;
type
str=string[50];
dns=record
    nam,ip:str;
    end;
fail=file of dns;
 
procedure Create(var f:fail;var z:dns);
var n,i:integer;
begin
assign(f,'dns.dat');
rewrite(f);
write('Koli4estvo zapisey n=');
readln(n);
for i:=1 to n do
 begin
  writeln('Zapis ',i);
  with z do
   begin
    write('Imya: ');readln(nam);
    write('IP: ');readln(ip);
   end;
  write(f,z);
 end;
close(f);
end;
procedure Search(var f:fail; var z:dns; p:str);
var k:byte;
begin
reset(f);
write('Vvedite zapra6ivaemoe imya: ');
readln(p);
k:=0;
while not eof(f) do
 begin
  read(f,z);
  if z.nam=p then
    begin
     k:=1;
     write(z.ip);
    end;
 end;
if k=0 then write('Takogo imeni net!');
readln
end;
 
var f:fail;
    name:str;
    zap:dns;
    w:char;
begin
clrscr;
create(f,zap);
repeat
clrscr;
writeln('Viberite deistvie: 1 - sdelat zapros / 0 - Vihod');
w:=readkey;
case w of
'1': Search(f,zap,name);
'0': Exit;
else w:=#0;
end;
until w='0';
end.