Найти ошибку

const
  nmax = 10000;
 
type
  Tmas = array[1..nmax] of integer;
 
function prost(x: integer): boolean;
var
  n, i, k: integer;
var
  a: Tmas;
begin
  for i := 1 to n - 1 do
    read(a[i]);
  for k := i to n + 1 do
    if a[i] = a[k] then
    begin
      prost := false;
      break;
    end
    else prost := true;
end;
 
procedure sort(var A: Tmas; n: integer);
var
  k, l: integer;
begin
  for k := 1 to n - 1 do 
    for l := k + 1 to n do 
      if a[k] mod 10 > a[l] mod 10 then swap(a[k], a[l]); 
end;
 
var
  m, i, j, n: integer;
 
var
  a: Tmas;
 
begin
  m := 0; 
  read(n); 
  for i := 1 to n do 
    read(a[i]); 
  for i := 1 to n do 
  begin
    if prost(a[i]) = false then 
      sort(a, n); 
  end; 
  for j := 1 to n do 
    write(a[j], ' '); 
end.

begin
  var a:=ArrRandomInteger(ReadInteger,-10,10);
  a.Println;
  if a.Distinct.Count < a.Count then
    begin
      WriteLn('Одинаковые элементы есть!');
      a.OrderBy(n->abs(n) mod 10).Println;
    end
  else
    WriteLn('Нет одинаковых элементов');
end.

const
  nmax = 10000;
 
type
  Tmas = array[1..nmax] of integer;
 
var
  a: Tmas;
  n, k, i, j, m, l: integer;
  b: boolean;
 
begin
  writeln('Введите количество чисел в последовательности');
  read(n);
  writeln('Введите каждое число из ', n);
  begin
    b := false;
    for i := 1 to n do
      read(a[i]);
  end;
  begin
    for i := 1 to n - 1 do
    begin
      for j := i + 1 to n do
      begin
        if a[i] = a[j] 
          then b := true;
      end;
    end;
  end;
  begin
    for i := 1 to n do
      for j := 1 to n do
        if b = true then
        begin
          if abs(a[i]) mod 10 < abs(a[j]) mod 10 then swap(a[i], a[j]);
        end
  end;
  begin
    if b = false then
      writeln('Нет одинаковых чисел в последовательности')
    else
      writeln('В последовательности есть одинаковые числа');
  end;
  begin
    for i := 1 to n do
      write(a[i], ' ');
  end;
end.