Как переделать очередь основанную на массиве в циклическую очередь

uses
  crt;
 
const
  n = 3;
 
type
  
  que = array [1..n] of integer;
 
var
  First, Free: integer;
  x1:integer;
  dis,cod:byte;
  mas:que;
i:integer;
procedure InIt(var Fi, Fr: integer);
begin
  Fi := 1;
  Fr := 1;
end;
 
function Empty(Fi, Fr: integer): boolean;
begin
  if Fi = Fr then Empty := true
  else
    Empty := false;
  
end;
 
procedure Insert(var q: que; var Fi, Fr: integer; var code: byte; x: integer);
begin
  if (Fi=Fr)and (Fi=0) then
  InIt(Fi,fr);
  
  
    if ((Fi=Fr) and (Fi<>1)) or ((Fi=1) and (Fr=n+1)) then 
    begin
    writeln('Очередь полна');
    exit;
  end;
  Q[Fr]:=x;
  Fr := Fr + 1;
  code := 0;
  Inc(dis);
  if fr=n+1 then
  Fr:=1;
  
  
end;
 
procedure remove(var q: que; var Fi, Fr: integer; var code: byte; var x: integer);
begin
  if empty(Fi, Fr)
  then
  begin
    code := 2;
    exit;
  end
  else
  begin
    x := Q[fi];
    fi := fi + 1;
    dec(dis);
    if Fi=n then
    Fi:=1;
  end;
end;
 
procedure Display;
begin
  if dis = 0 then
    writeln('Очередь пуста')
  else
if Free=1 and 
end;
 
begin
  while true do 
  begin
    ClrScr;
    
    writeLn('Программа для работы с очередью');
    writeLn('1 - Добавить элемент в очередь');
    writeLn('2 - Удалить элемент из очереди');
    writeLn('3 - Проверка очереди на наличие элементов');
    writeLn('4 - Вывод очереди');
    writeLn('.....');
    Display;
    gotoxy(7, 6);
    readLn(i);
    gotoxy(1, 9);
    case i of 
      1:
        begin
          Writeln('Введите число');
          Readln(x1);
          Insert(mas,First,Free,cod,x1);
        end;
      2:
        begin
        if dis=0 then
  InIt(First,free);
          remove(mas,First,Free,cod,x1);
         
        end;
      3:
        begin
        if dis = 0 then begin writeln('Очередь пуста');Sleep(3000)
        end
        else
        begin
          WritelnFormat('В очереди {0} элементов',dis);
          Sleep(3000);
          end;
        end;
      4:
        begin
          ClrScr;
          display;
          writeln;
          
          Sleep(3000);
          
        end;
    end;
  end;
end.

procedure Wait;
begin
  ReadLnString(NewLine + 'Для продолжения нажмите Enter...');
end;
 
function InputNumber(var N : Integer) : Boolean;
begin
  var strN := ReadLnString('Введите числовое значение:');
  try
    N := StrToInt(strN);
    Result := True;
  except
    WriteLn('Введённое значение не является целым числом!');
    Result := False;
  end;
end;
 
type
  tElements = class
    N : Integer;
    X : tElements;
    
    constructor (N : Integer; X : tElements);
    begin
      Self.N := N;
      Self.X := X;
    end;
  end;
  
type
  tSpis = class
    E : tElements;
    Count : Integer;
    
    constructor;
    begin
      Count := 0;
    end;
    
    procedure See;
    begin
      WriteLn(NewLine, '~'*25, NewLine, 'Просмотр элементов в очереди');
      if Count = 0 then
        WriteLn('Очередь пуста!')
      else
        begin
          var Cur := E;
          Write('В очереди: ');
          repeat
            Print(Cur.N);
            Cur := Cur.X;
          until Cur = E;
          WriteLn;
        end;
      Wait;
    end;
    
    procedure Add;
    begin
      WriteLn(NewLine, '~'*25, NewLine, 'Добавление элемента в очередь');
      var N := 0;
      if InputNumber(N) then
        begin
          if Count = 0 then
            begin
              E := New tElements(N, nil);
              E.X := E;
            end
          else
            begin
              var L := E;
              while L.X <> E do
                L := L.X;
              L.X := New tElements(N, E);
            end;
          Count += 1;
          WriteLn('В очередь добавлено значение ' + N + '.  Текущий размер очереди ' + Count + '.');
        end;
      Wait;
    end;
    
    procedure Del;
    begin
      WriteLn(NewLine, '~'*25, NewLine, 'Удаление элемента из очереди');
      if Count = 0 then
        WriteLn('Очередь пуста!')
      else
        begin
          var N := 0;
          if InputNumber(N) then
            begin
              var Cur := E;
              repeat
                if Cur.N <> N then
                  Cur := Cur.X;
              until (Cur = E) or (Cur.N = N);
              if Cur.N = N then
                begin
                  Count -= 1;
                  if Count > 0 then
                    begin
                      var Pred := E;
                      while Pred.X <> Cur do
                        Pred := Pred.X;
                      Pred.X := Cur.X;
                      if Cur = E then
                        E := Pred.X;
                    end;
                  WriteLn('Из очереди удалено значение ' + N + '.  Текущий размер очереди ' + Count + '.');
                end
              else
                WriteLn('Значение ' + N + ' не найдено в очереди!');
            end;
        end;
      Wait;
    end;
    
    procedure Find;
    begin
      WriteLn('Поиск наличия элементов');
      if Count = 0 then
        WriteLn('Очередь пуста!')
      else
        begin
          var N := 0;
          if InputNumber(N) then
            begin
              var countN := 0;
              var Cur := E;
              repeat
                if Cur.N = N then countN += 1;
                Cur := Cur.X;
              until Cur = E;
              if countN = 0 then
                WriteLn('Не найдено ни одного значения ' + N + '.')
              else
                WriteLn('Найдено значение ' + N + '.  Количество совпадений ' + countN + '.');
            end;
        end;
      Wait;
    end;
  end;
  
 
begin
  var Sp := New tSpis;
  var answer : String;
  repeat
    WriteLn(NewLine*5, '~'*25, NewLine*2, 'Меню операций с очередью:');
    WriteLn('  1 - Вывод очереди'                 );
    WriteLn('  2 - Добавить элемент'              );
    WriteLn('  3 - Удалить элемент'               );
    WriteLn('  4 - Проверить на наличие элементов');
    WriteLn('  0 - Выход'                         );
    answer := ReadLnString(NewLine + '-'*25 + NewLine + 'Введите номер действия:');
    
    if answer.Length > 0 then
      case answer[1] of
        '1' : Sp.See;
        '2' : Sp.Add;
        '3' : Sp.Del;
        '4' : Sp.Find;
      end;
  until (answer.Length > 0) and (answer[1] = '0');
  WriteLn(NewLine*5);
end.