Заменить метод сортировки на пузырьковый

uses
  crt;
 
type
  elem = record
    elem: array [1..3] of string[50];
  end;
  rezultat_poiska = array [1..1000] of integer;
 
var
  f: file of elem;
  path: string;
  ch: char;
  vibor: byte;
  sort1: integer;
 
procedure sort;
var
  i1, j1, temp: elem;
  i, j: integer;
begin
  writeln('Введите число, чтобы сортировать базу данных по:');
  writeln('1. ФИО');
  writeln('2. ОПЕРАЦИЯ');
  writeln('3. ПАЦИЕНТ');
  readln(sort1);  
  for i := 0 to filesize(f) - 2 do 
  begin
    for j := i + 1 to filesize(f) - 1 do
    begin
      seek(f, i); read(f, i1);
      seek(f, j); read(f, j1);
      if i1.elem[sort1] > j1.elem[sort1] then
      begin
        temp := j1; j1 := i1; i1 := temp;
        seek(f, i); write(f, i1);
        seek(f, j); write(f, j1);
      end;
    end;
  end;
  clrscr;
end;
 
procedure add;
var
  k: elem;
begin
  clrscr;
  writeln('Добавить запись:');
  write('Введите ФИО: ');
  readln(k.elem[1]);
  write('Введите ОПЕРАЦИЯ: ');
  readln(k.elem[2]);
  write('Введите ПАЦИЕНТ: ');
  readln(k.elem[3]);
  seek(f, filesize(f));
  write(f, k);
  writeln('Запись добавлена в файл!');
  readln;
end;
 
procedure vivod;
var
  k: elem;
  i: integer;
begin
  clrscr;
  sort;
  writeln('Вывод записей:'); 
  seek(f, 0);
  i := 1;
  while not eof(f) do 
  begin
    read(f, k);
    writeln('   ---',i,'---   ');
    writeln('ФИО: ', k.elem[1]);
    writeln('ОПЕРАЦИЯ: ', k.elem[2]);
    writeln('ПАЦИЕНТ: ', k.elem[3]);
    inc(i);
    writeln('Нажмите <ENTER>');
    readln; end;
  writeln('Вывод окончен!');
  readln;
end;
 
procedure poisk(var rez: rezultat_poiska; var j: integer);
var
  k: elem;
  vibor: byte;
  i: integer;
  s: string[100];
begin
  clrscr;
  writeln('Поиск записи. Введите номер критерия для поиска:');
  writeln('1. ФИО');
  writeln('2. ОПЕРАЦИЯ');
  writeln('3. ПАЦИЕНТ');
  readln(vibor);
  write('Введите значение выбранного критерия: ');
  seek(f, 0);
  i := 0;
  j := 1;
  readln(s);
  case vibor of
    1: 
      while not eof(f) do 
      begin
        read(f, k);
        if k.elem[1] = s then begin rez[j] := i; inc(j); end;
        inc(i);
      end;
    2: 
      while not eof(f) do 
      begin
        read(f, k);
        if k.elem[2] = s then begin rez[j] := i; inc(j); end;
        inc(i);
      end;
    3: 
      while not eof(f) do 
      begin
        read(f, k);
        if k.elem[3] = s then begin rez[j] := i; inc(j); end;
        inc(i);
      end;
  end;
end;
 
procedure poisk_vivod;
var
  rez: rezultat_poiska;
  j, i: integer;
  ch: char;
  k: elem;
begin
  poisk(rez, j);
  if j > 1 then begin
    writeln('Найдено следующее кол-во записей, удовлетворяющих заданному условию: ', j - 1);
    writeln('Вывести? (y/n)');
    readln(ch);
    ch := upcase(ch);
    if ch = 'Y' then begin
      for i := 1 to j - 1 do 
      begin
        seek(f, rez[i]);
        read(f, k);
        writeln(i, ' ', k.elem[1]);
        writeln(k.elem[2]);
        writeln(k.elem[3]);
        writeln('Нажмите <ENTER>');
        readln;
      end;
    end; end
  else begin writeln('Записей, удовлетворяющих условию, не найдено!');readln; end;
end;
 
procedure modify;
var
  j: integer;
  rez: rezultat_poiska;
  ch: char;
  z: elem;
begin
  clrscr;
  writeln('Поиск записи, которую необходимо редактировать');
  poisk(rez, j);
  ch := 'Y';
  while (j > 2) and (ch = 'Y') do 
  begin
    writeln('Найдено более одной записи, необходимо повторить поиск (y/n)');
    readln(ch);
    ch := upcase(ch);
    if ch = 'Y' then poisk(rez, j); end;
  if j = 2 then begin
    writeln('Введите новые данные для изменяемой записи');
    write('ФИО');
    readln(z.elem[1]);
    write('ОПЕРАЦИЯ');
    readln(z.elem[2]);
    write('ПАЦИЕНТ');
    readln(z.elem[3]);
    seek(f, rez[1]);
    write(f, z); end;
  if j = 1 then writeln('Записи для редактирования не найдено!');
  readln;
end;
 
procedure del;
var
  rez: rezultat_poiska;
  k, j, i: integer;
  ch: char;
  z: elem;
begin
  clrscr;
  writeln('Укажите записи, подлежащие удалению');
  poisk(rez, j);
  if j > 1 then begin
    writeln('Указанному критерию удовлетворяет следующее кол-во записей: ', j - 1);
    write('Удалить? (y/n) ');
    readln(ch);
    ch := upcase(ch);
    if ch = 'Y' then begin
      for i := 1 to j - 1 do 
      begin
        for k := rez[i] to filesize(f) - 2 do 
        begin
          seek(f, k + 1);
          read(f, z);
          seek(f, k);
          write(f, z);
        end;
        seek(f, filesize(f) - 1);
        truncate(f);
      end;
      writeln('Записи удалены'); end; end
  else writeln('Записей не найдено!');
  readln;
end;
 
begin{Основная программа}
  clrscr; sort1 := 1; 
  writeln('Введите полное имя файла БД, с которой собираетесь работать:');
  readln(path);
  assign(f, path);
  try 
    begin
      Reset(f); 
      clrscr;
      writeln('Файл открыт. Добавить новую запись? (y/n)');
      readln(ch);
      ch := upcase(ch);
      while ch= 'Y' do
      begin        
        add; clrscr;
        writeln('Добавить новую запись? (y/n)');
        readln(ch);
        ch := upcase(ch);
      end;
    end
  except
    begin
      writeln('Файл не найден! Создать новую БД? (y/n)');
      readln(ch);
      ch := upcase(ch);
      if ch = 'Y' then begin
        rewrite(f);
        while ch = 'Y' do 
        begin
          clrscr;
          writeln('Добавить новую запись? (y/n)');
          readln(ch);
          ch := upcase(ch);
          if ch = 'Y' then add;
        end;           end
      else exit; end;
  end;
  while vibor <> 8 do 
  begin{цикл выбора действия}
    clrscr;
    writeln('Введите номер операции, которую Вы хотите выполнить: ');
    writeln('1. Добавить запись в БД');
    writeln('2. Удалить запись из БД');
    writeln('3. Модифицировать запись в БД');
    writeln('4. Поиск записи в БД');
    writeln('5. Вывести все записи');
    writeln('6. Выход');
    readln(vibor);
    case vibor of
      1: add;
      2: del;
      3: modify;
      4: poisk_vivod;
      5: vivod;
      6: exit;
    end;
    clrscr;
  end;
  close(f);
end.