Добрые люди.........защита практики.=)

[Domigod]

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

program rr;
uses crt;
type wivotnqe=record name:string[10];
nazvanie:integer;
vid:string[10];
chislennost:integer;
end;
var a:array [1..30] of wivotnoe;
c:winotnoe;
s:string;
i,j,n,h:integer;
y:integer;
u,k:wivotnoe;
z: file of wivotnoe;
procedure vvod;
begin clrscr;
textcolor(yellow);
writeln('Vvedite chislennost wivotnqx:');
readln(n); for i:=1 to n do with a do begin writeln('vvedite nazvanie.'); r
eadln(vid);
writeln('VID:');
readln(vid);
writeln('NAZVANIE: ');
readln(stag);
writeln('chislennostb:');
readln(vidt);
end;
end;
procedure sort1;
begin clrscr;
for i:=1 to n-1 do for j:=i+1 to n do if (a[j].vid0) then begin for i:=1 to n do begin seek(z,i-1) ;
read(z,a);
end;
readln;
vuvod;
end;
end;
procedure save;
begin clrscr;
assign(z,'T.txt');
rewrite(z);
for i:=1 to n do write(z,a); close(z);
end;
begin clrscr;
repeat clrscr;
writeln('Vubrat deistvie');
writeln('1 - Vvod; 2 - Vuvod; 3 - sort (vidt); 4 - sort (chislennost); 5 - sort (nazvanie)');
writeln('6 - poisk (familia); 7 - poisk (stag); 8 - save; 9 - open; 10 - exit ');
readln(y);
case y of 1: vvod;
2: vuvod;
3: sort1;
4: sort2;
5: sort3;
6: poisk1;
7: poisk2;
8: save;
9: read1;
10: exit else writeln('Vubrat ot 1 do 6'); end; until (y=8);

[Хыиуду]

Поле name идет лесом, вид лучше сделать булевым (всего два значения - зачем там строка?). Для оформления кода пользуйтесь тегами [noparse][syntax=Delphi] или

Код: Выделить всё

[/noparse], а то в таком виде нечитабелен. Вообще таких задач по форуму море. См., например, сортировку массива в разделе "Алгоритмы"