создание таблицы и сортировка

program zzz;
uses crt;
type zap=record
       fio:string[15]; {ФИО}
       bol:string[15];  {Болезнь}
       data:integer;   {Дата}
     end;
var f:array [1..10] of zap;
    i,n,kbol:integer;
    begin
   clrscr;
   writeln('‚Введите кол-во записей');
   readln(n);
 
   {Заполнение массива записей}
 
   for i:=1 to n do
    with f[i] do
    begin
       writeln('‚введите ФИО');
       readln(fio);
       writeln('введите болезнь');
       readln(bol);
       writeln('введите дату);
       readln(data);
    end;
    {распечатка таблици}
 
    writeln('--------------------------------------------------------------------------------');
    writeln('       ФИО      !      болезнь 1           !////////\\\\\\\!     болезнь N                       ');
    writeln('                   !----------------------!                  !-----------------------------');
    writeln('     Пациента ! **название      ! дата* !                  !  **название          ! дата*      );
    writeln('--------------------------------------------------------------------------------');
 
    {распичатка записей}
    for i:=1 to n do
     with f[i] do
     begin
        write(fio:17,'!',bol:15,'!',data:6,'!');
        writeln;
     end;
   writeln('-------------------------------');
   writeln('      Фио        !кол-во болезней');
   writeln('-------------------------------');
    for i:=1 to n do
      with f[i] do
       begin
            write(FIO:17,'!', data:10,'!');
            writeln;
       end;
  readkey;
end.