Дописать код. Нужно написать сортировку файла методом "Пузырька"

Program zadanie_5;
 
var
  fail: text; // текстовая переменная
  n: integer; // ввод чисел (элементов)
  i: integer; // счетчик элементов
  x: string; // ввод ответа на запуск процедуры
  
  
  
  
 
begin
 
assign(fail,'D:\zadanie\pr.txt'); // создание текстового файла
rewrite(fail); // перезапись файла (очистка прошлых данных)
 
  repeat
    write('Введите количество исходных данных (не более 20 чисел): ');
    readln(n);
      if (n > 20) or (n < 1) then
        writeln('Некорректный ввод, введите число в диапозоне от 1 до 20!');
  until (n > 0) and (n <= 20);
  write(fail,'Исходные данные: ');
  for i:= 1 to n do
  begin
    write(fail,' ',random(6));
  end;
  writeln('Запустить процедуру сортировки?');
  writeln('Введите слово: "Да" или "Нет"');
  write('Ваш ответ: ');
  readln(x);
    if (x = 'Да') then
      writeln('+') // здесь должна быть процедура
    else
    begin
      writeln('Программа завершила свою работу...');
      exit;
    end;
    
close(fail); // закончили работу с файлом    
  
 
  
 
 
 
end.

Program zadanie_5;
 
var
  fail: text; // текстовая переменная
  n: integer; // ввод чисел (элементов)
  i,j: integer; // счетчик элементов
  x: string; // ввод ответа на запуск процедуры
  a,b: integer;
  
  procedure ProcessSort;
  var
    i,j: integer;
  begin
    seek(fail,0);
      for i:= 0 to filesize(fail) - 2 do
        for j:= filesize(fail) - 1 downto i + 1 do
        begin
          seek(fail,j-1);
          read(fail,a);
          seek(fail,j);
          read(fail,b);
            if (a > b) then
            begin
              seek(fail,j-1);
              write(fail,b);
              seek(fail,j);
              write(fail,a);
            end;
        end;
  seek(fail,0);
    for i:= 0 to filesize(fail) - 1 do
    begin
      read(fail,a);
      write(fail,a);
    end;
  end;
  
 
begin
  
  assign(fail,'D:\zadanie\pr.txt'); // создание текстового файла
  rewrite(fail); // перезапись файла (очистка данных)
  
  repeat
    write('Введите количество исходных данных (не более 20 чисел): ');
    readln(n);
      if (n > 20) or (n < 1) then
        writeln('Некорректный ввод, введите число в диапозоне от 1 до 20!');
  until (n > 0) and (n <= 20);
  write(fail,'Исходные данные:');
  for i:= 1 to n do
  begin
    a:= random(6);
    write(fail,' ',a);
  end;
  writeln('Запустить процедуру сортировки?');
  writeln('Введите слово: "Да" или "Нет"');
  write('Ваш ответ: ');
  readln(x);
    if (x = 'Да') then
      ProcessSort // здесь должна быть процедура
    else
    begin
      writeln('Программа завершила свою работу...');
      exit;
    end;
  close(fail); 
  
  
  
  
  
  
end.