Сортировка данных

 program baza;
uses
crt;
label 10;
type
spisok = record
vt: string;
nm: string;
dvm: string;
no: string;
end;
var
i, z: integer;
s: real;
mas: array[1..5] of spisok;
procedure Sozd;
var
i, j: integer;
zk: spisok;
begin
j := 1;
i := 1;
while j <> 80 do
begin
write('Наименование диска или фильма: ');
readln(zk.vt);
write('Год выпуска: ');
readln(zk.nm);
write('Название песни или фильма: ');
readln(zk.dvm);
write('цена: ');
readln(zk.no);
 
mas[i].vt := zk.vt;
mas[i].nm := zk.nm;
mas[i].dvm := zk.dvm;
mas[i].no := zk.no;
writeln('если конец, 80');
readln(j);
i := i + 1
end;
end;
procedure vyvod();
var
i: integer;
zk: spisok;
begin
writeln('=======================================');
writeln('Наименование диска или фильма | Год выпуска | Название песни или фильма | цена'); 
writeln('=======================================');
for i := 1 to 5 do
begin
write(mas[i].vt:9);
write(mas[i].nm:9);
write(mas[i].dvm:9);
write(mas[i].no:9);
writeln;
writeln('--------------------------------------');
end;
end;
procedure delete();
var
i, n: integer;
begin
i := 1;
writeln('Введите номер записи для удаления');
readln(n);
 
mas[n].vt := '';
mas[n].nm := '';
mas[n].dvm := '';
mas[n].no := '';
end;
procedure poisk();
var
i: integer;
zk: spisok;
name: string;
begin
writeln('Введите наименование для поиска');
readln(name);
 
for i := 1 to 5 do
if name = mas[i].vt then 
begin
writeln('Совпадение');
write(mas[i].vt:9);
write(mas[i].nm:9);
write(mas[i].dvm:9);
write(mas[i].no:9);
writeln;
writeln('--------------------------------------');
end;
end;
begin
clrscr;
10:
 
writeln('1-новый список');
writeln('2-вывод базы данных');
writeln('3-удаление элемента');
writeln('4-поиск по наименованию');
readln(z);
case z of
1: sozd();
2: vyvod();
3: delete();
4: poisk();
end;
goto 10;
readln;
end.