База данных в паскале.........нужна помощь

[Vod9noy]

Задача.........................
База данных "животные"
Описание программы: Заносятся данные содержащий информацию о животных (название, вид (дикое или домашнее), численность) находящихся в зооуголке.
Данные сохраненные в базе: название, вид (дикое или домашнее), численность, возраст.
Поиск: по названию, по виду.
Сортировка: по возрасту.
Сохранять и считывать данные из файла.
*********************************** ***
переделайте пожалусто

program zadanie_6;

uses crt;
type
rod=record
name:string[15];
vid:string[17];
4islennostb:string[15];
nomer_komnati:string[20]; {adres}
data_zaezda:integer; {year}
kol_vo_dnei_prebivaniya:integer; {telefon}
stoimost_nomera_v_sutki:string[20]; {dolg}
oplata_za_vremya_prebivaniya:string[20]; {mesto}
end;
var
a:array[1..100] of rod;
i,j,n,p,p1:integer;
v:file of rod;
v1:string;

procedure writef;
begin
assign(v,v1);
reset(v);
n:=0;
while not eof(v) do
begin
n:=n+1;
seek(v,n);
end;
for i:=1 to n do
begin
seek(v,i-1);
write(v,a[i]);
end;
close(v);
end;
procedure readf;
begin
assign(v,v1);
reset(v);
n:=0;
while not eof(v) do
begin
n:=n+1;
seek(v,n);
end;
for i:=1 to n do
begin
seek(v,i-1);
read(v,a[i]);
end;
end;

procedure add;
begin clrscr;
assign(v,v1);
reset(v);
n:=0;
while not eof(v) do
begin
n:=n+1;
seek(v,n);
end;
n:=n+1;
with a[n] do
begin
writeln('”*¬Ё«Ёп');
readln(fname);
writeln('€¬п');
readln(name);
writeln('ЋвзҐбвў®');
readln(oname);
writeln('„*в* §*Ґ§¤*');
readln(data_zaezda);
writeln('Ќ®¬Ґа Є®¬**вл');
readln(nomer_komnati);
writeln('Љ®«ЁзҐбвў® ¤*Ґ© ЇаҐЎлў**Ёп');
readln(kol_vo_dnei_prebivaniya);
writeln('‘в®Ё¬®бвм *®¬Ґа* ў бгвЄЁ');
readln(stoimost_nomera_v_sutki);
writeln('ЋЇ«*в* §* ўаҐ¬п ЇаҐЎлў**Ёп');
readln(oplata_za_vremya_prebivaniya );
end;
for i:=1 to n do
begin
seek(v,i-1);
write(v,a[i]);
end;
end;

procedure search;
var
t:string[20];
begin clrscr;
writeln('‚ўҐ¤ЁвҐ д*¬Ё«Ёо');
readln(t);
for i:=1 to n do
if a[i].fname=t
then
begin
writeln('#','/','”*¬Ё«Ёп','/','€¬п','/','ЋвзҐбвў®','/','„*в* §*Ґ§¤*','/','Ќ®¬Ґа Є®¬**вл','/','Љ®«ЁзҐбвў® ¤*Ґ© ЇаҐЎлў**Ёп','/',
'Cв®Ё¬®бвм *®¬Ґа* ў бгвЄЁ','/','ЋЇ«*в* §* ўаҐ¬п ЇаҐЎлў**Ёп');
with a[i] do
writeln(i,fname:3,'/',name:7,'/',oname:5,'/',data_zaezda:6,'/',nomer_komnati:5,'/',kol_vo_dnei_prebivaniya:5,'/',
stoimost_nomera_v_sutki:7,'/',oplata_za_vremya_prebivaniya:7);
end;
end;



procedure print;
begin clrscr;
readf;
writeln('#','/','”*¬Ё«Ёп','/','€¬п','/','ЋвзҐбвў®','/','„*в* §*Ґ§¤*','/','Ќ®¬Ґа Є®¬**вл','/','Љ®«ЁзҐбвў® ¤*Ґ© ЇаҐЎлў**Ёп','/',
'Cв®Ё¬®бвм *®¬Ґа* ў бгвЄЁ','/','ЋЇ«*в* §* ўаҐ¬п ЇаҐЎлў**Ёп');
for i:=1 to n do
with a[i] do
writeln(i,fname:3,'/',name:7,'/',oname:5,'/',data_zaezda:6,'/',nomer_komnati:5,'/',kol_vo_dnei_prebivaniya:5,'/'
,stoimost_nomera_v_sutki:7,'/',oplata_za_vremya_prebivaniya:7);
close(v);
end;


procedure del;
var
o:string[20];
begin clrscr;
writeln('‚ўҐ¤ЁвҐ д*¬Ё«Ёо');
readln(o);
readf;
for i:=1 to n do
if o=a[i].fname
then
begin
for j:=i to n do
a[j]:=a[j+1];
end;
n:=n-1;
writef;
print;
end;



procedure oder;
var
u:rod;
begin clrscr;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j].fname<a[i].fname
then
begin
u:=a[j];
a[j]:=a[i];
a[i]:=u;
end;
writef;
print;
end;



procedure cs;
var
p:integer;
begin
writeln('ўлЎҐаЁвҐ ¤Ґ©бвўЁҐ:');

[Vod9noy]

люди кстате хотел сказать код дороботан недоконца.......его нужно доделать и подогнать под задачу..........если поможите огромное вам человеческое спасибо=)