Сортировать записи по одному из полей базы данных в любом направлении

Program KontrRab;
uses crt;
Type
filmi=record;
naz:string[30];
fio:string[50];
god,min:integer;
nom:byte;
jan:string;
a1:array[1..100] of integer;
end;
var
x,im,kol:byte;
min,k:integer;
 
m:array[1..255] of filmi;
f:text;
d,w:char;
y:char;
 
procedure tabl(i:byte);
begin
clrscr;
write('Введите название фильма  ');
readln(m[i].naz);
write('Введите Ф. И. О. актёра ');
readln(m[i].fio);
write('Введите дату выхода фильма ');
readln(m[i].god);
write('Введите продолжительность фильма в минутах ');
readln(m[i].min);
write('Введите жанр фильма ');
readln(m[i].jan);
end;
 
 
 
procedure graf;
 
var i:byte;
begin
clrscr;
Writeln('___________________________________________________');
Writeln('|#| Название  |  Ф.И.О.  | Дата |Про-сть|   Жанр  |');
Writeln('| |  фильма   |  актёра  |выхода|фильма |  фильма |');
Writeln('|_|___________|__________|______|_______|_________|');
Writeln('| |           |          |      |       |         |');
for i:=1 to kol do
Writeln('|',m[i].nom:2,'|',m[i].naz:8,'|',m[i].fio:5,'|',m[i].god:8,'|'
,m[i].min:6,'|',m[i].jan:7,'|');
Writeln('|_|___________|__________|______|_______|_________|');
end;
 
 
 
procedure delite;
var de:byte;
begin
clrscr;write('Введите номер удаляемой записи: ');readln(de);
m[de]:=m[kol];kol:=kol-1;m[de].nom:=de
end;
 
 
 
procedure dobav;
begin
inc(kol);tabl(kol)
end;
 
 
 
procedure esche;
begin repeat inc(kol);tabl(kol);
write('Добавить ещё один фильм? (д/н): ');readln(d) until d='н'
end;
 
 
 
procedure vf;
begin
reset(f);while not eof(f) do begin inc(kol);readln(f,m[kol].naz);
readln(f,m[kol].fio);readln(f,m[kol].god);
readln(f,m[kol].min);readln(f,m[kol].jan);
 end;close(f)
end;
 
 
 
end;
 
Procedure akt;
 var k:integer;
     i:string[50];
  begin
  Writeln('Введите Ф.И.О. актёра');
  readln(i);
   for k:=1 to kol do begin
    if pos(i,m[k].fio)<>0 then  begin
  Writeln('Данный фильм называется - ',m[k].naz);Writeln(' Ф.И.О актёра -  ',
 m[k].fio);Writeln(' Дата выхода фильма: ',m[k].god);
 Writeln(' Продолжительность фильма: ',m[k].min);
 Writeln(' Жанр фильма: ',m[k].jan); end ;
  end;
 
 
end;
     
procedure sor;
var i,k,tmp:integer;
begin
for i:=1 to kol do
      begin
       for k:=1 to kol-1 do
       begin
        if m[k].god<m[k+1].god then
        begin
        tmp:=m[k].god;
        m[k].god:=m[k+1].god;
        m[k+1].god:=tmp;
        end;
         end;
          end;
         for k:=1 to kol do  begin
        Writeln('Данный фильм называется - ',m[k].naz);Writeln(' Ф.И.О актёра -  ',
 m[k].fio);Writeln(' Дата выхода фильма: ',m[k].god);
 Writeln(' Продолжительность фильма: ',m[k].min);
 Writeln(' Жанр фильма: ',m[k].jan); end;
end;
 
 
procedure safe;
var i:byte;
begin
rewrite(f);
for i:=1 to kol do begin writeln(f,m[i].naz); writeln(f,m[i].fio);
writeln(f,m[i].god); writeln(f,m[i].min);
writeln(f,m[i].jan) end;close(f)
end;
 
 
 
procedure kor;
var de:byte;
begin
clrscr;write('Введите номер записи, которую желаете очистить: ');readln(de);
m[de]:=m[kol];kol:=kol-1;m[de].nom:=de
end;
 
 
procedure men;
begin
repeat clrscr;
writeln('1: Добавить новую запись ');
writeln('2: Удалить запись из списка');
writeln('3: Сохранить данные');
writeln('4: Вывести данные на экран');
writeln('5: Откорректировать запись');
writeln('6: Вывести развёрнутые данные о записи');
writeln('7: Сортировка по году выпуска');
writeln('8: Фильтрация');
writeln('9: Поиск фильмов с участием определённого актёра');
writeln('Выход');
readln(w) until (w='1') or (w='2') or (w='3') or (w='4') or (w='5') or (w='6')
or (w='7') or (w='8') or (w='9') or (w='Выход') end;
 
 
 
 procedure pol;
 begin
 Writeln('Введите № записи, о которой хотите получить');
 Writeln(' полные данные');
 read(im);
 
 end;
 procedure ByB;
begin
 Writeln('Данный фильм называется - ',m[im].naz);Writeln(' Ф.И.О актёра -  ',
 m[im].fio);Writeln(' Дата выхода фильма: ',m[im].god);
 Writeln(' Продолжительность фильма: ',m[im].min);
 Writeln(' Жанр фильма: ',m[im].jan);
 
 end;
 
 
Procedure Izd;
begin
 
assign(f,'base.txt');
repeat clrscr;writeln('1.Загрузить существующую базу данных');
writeln('2. Ввести новую базу данных');
readln(w)
until (w='1') or (w='2');
case w of
'1':vf;
'2':esche
end;
men;repeat
case w of
'1':begin dobav;men end;
'2':begin delite;men end;
'3':begin safe;men end;
'4':begin graf;readln;men end;
'5':begin kor;dobav;men end;
'6':begin pol;ByB;readln;men end;
'7':begin sor;readln;men end;
'8':begin fil;readln;men end;
'9':begin akt;readln;men end;
end;
until w='Выход'
 
end;
 
 
 procedure menu;
 begin
  window(1,1,27,25); clrscr;textBackGround(0);  textcolor(4);
                                       gotoxy(2,2);
 write('Контрольная работа');gotoxy(2,3);
 write('   .........................');gotoxy(2,4);
 write('........................   ');gotoxy(3,6);
 write('Выберите пункт');     gotoXY(3,7);
 write(' ');     gotoXY(3,8);
 write(' 1.  База данных ');     gotoXY(3,15);
 
 write(' 2.   В Ы Х О Д      ');     gotoXY(3,19);
 write('  ');     gotoXY(3,21);
 write(' Введите номер команды ');     gotoXY(3,23);
 write('    и нажмите Ввод     ');     gotoxy(2,25);
 Write('   ...................................');     gotoXY(14,22);
   end;
 
 
begin
clrscr;textBackGround(0);
window(1,1,80,19);
menu;
repeat
gotoXY(37,4);
readln(k);
 case k of
 1:begin window(30,1,80,25);textBackGround(255);Izd;readln;clrscr;
  textBackGround(0); menu; end;
end;
 until (k=2);
 
 clrscr; Writeln;Writeln;Writeln;
 Write('---------------------------');
 Write('    Контрольная работа     ');
 Write('                           ');
 Write('                           ');
 Write('                           ');
 Write('                           ');
 Write('  подготовлена студентом   ');
 Write('    ..............................     ');
 Write('        факультета         ');
 Write('.......................................');
 Write('    ..............................     ');
 Write('                           ');
 Write('                           ');
 Write('                           ');
 Write('                           ');
 Write('                           ');
 Write('     ');
 Write('---------------------------');
 end.