Сортировка массива записей.

Program DemoRecord;
Uses Crt;
const nn=20;
Type Zap=Record
     fio: string[30];
 
NameKar:string;  {s}
God:Integer;     {e}
Tech:string;     {t}
Stoim:integer;
 
end;
Var s: Zap;
    f: file of Zap;
    st: String;
    n,i: byte;
    exit: boolean;
    a:array[1..nn] of zap;
begin
clrscr;
exit:= false;
writeln('Programma dlya aukciona. Vvedite nazvanie faila s dannbImi.');
writeln('Esli file s takim imenem yzhe sychestvyet, budet zapuchen rezhim zapisi.');
readln(st);
Assign(f, st);
{$I-}
Reset(f);
{$I+}
if (IOResult<>0) or (FileSize(f)=0) then begin
rewrite(f);
writeln('File ne dostupen ili ne soderzhit ni odnoi zapisi. File budet perezapisan ili sozdan. Vkluchen rezhim zapisi.');
writeln('Vvedite dannble. Pystaya stroka - vblxod iz rezhima zapisi.');
Repeat
      writeln('Vvedite fio: ');
      readln(s.fio);
      if s.fio=''then exit:=true else begin
 
      writeln('Name kartini: ');
      readln(s.NameKar);
      writeln('God: ');
      readln(s.God);
       writeln('Texnika: ');
       readln(s.Tech);
       writeln('Stoim: ');
      readln(s.Stoim);
      write(f, s);
      end;
until exit=true;
 
end;
Seek(f, 0);
n:=0;
While not(Eof(f)) do begin
inc(n);
read(f, s);
writeln(n,' Name: ', '. ', s.fio);
writeln('Name Kartini: ', s.NameKar);
writeln('God: ', s.God);
writeln('Texnika: ', s.Tech);
writeln('Stoimost: ',s.Stoim);
 
end;
close(f);
 
 
 
readln;
end.