Упростить код

uses
  crt;
 
var
  a: array [1..1000] of integer;
  i, N: integer;
  c: char;
  b: boolean;
  k: byte;
 
procedure swap;
begin
  A[i] := A[i] + A[i + 1];
  A[i + 1] := A[i] - A[i + 1];
  A[i] := A[i] - A[i + 1];
end;
 
begin
  randomize;
  repeat
    write('Введите количество элементов массива ');
    readln(N);
  until N in [2..1000];
  writeln('До перестановки:');
  for i := 1 to N do
  begin
    A[i] := random(-101, 101);
    write(A[i], ' ');
  end;
  writeln;
  repeat
    repeat
      k := 0;
      Writeln('Нажмите клавишу');
      c := readkey;
      if c = #0 then b := true;
      if b then c := readkey;
      case c of
        #37:  
          begin
            for i := 1 to N - 1 do
              swap;
          end;
        #39:  
          begin
            
            for i := N - 1 downto 1 do
              swap;
          end;
      else
        begin
          writeln('Можно нажимать только на стрелки!');
          dec(k);
        end;
      end;
    until k = 0;
    writeln('После перестановки:');
    for i := 1 to N do
      write(A[i], ' ');
    writeln;
  until c = #27;
  writeln('Досвидания');
end.

writeln('Можно нажимать только на ', #27, ' и ', #26);

A[i] := random(-101, 101);

temp:=A[j];
A[j]:=A[j+1];
A[j+1]:=temp;