Программа для сортировки введенных пользователем чисел по убыванию

program pr;
 
var
  n, i, j, temp: integer;
  a: array [1..100] of integer;
 
begin
  writeln('Введите количество чисел');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите ', i, ' число');
    read(a[i]);
  end;
  for i := 1 to n do
    for j := 1 to n - i do
      if a[j] < a[j + 1] then
      begin
        temp := a[j];
        a[j] := a[j + 1];
        a[j + 1] := temp;
      end;
  for i := 1 to n do
    write(a[i]:3);
end.

var inp_str: string;
    n, i, j, t, temp, err: integer;
    a: array [1..100] of integer;
begin
  repeat
    write('Введите количество чисел [1..100]: ');
    readln(inp_str);
    val(inp_str, n, err);
    if err <> 0
      then writeln('Введено не число, повторите ввод.')
      else if not(n in [1..100])
        then writeln('Количество чисел вне диапазона, повторите ввод.')
  until (err = 0) and (n in [1..100]);
  for i := 1 to n do
    repeat
      write('Введите ', i, ' число: ');
      readln(inp_str);
      val(inp_str, a[i], err);
      if err <> 0 then writeln('Введено не число, повторите ввод.')
    until err = 0;
  for i := 1 to n - 1 do
    begin
      t := i;
      for j := i + 1 to n do if a[j] > a[t] then t := j;
      if t > i
        then begin
          temp := a[t];
          a[t] := a[i];
          a[i] := temp
        end
    end;
  writeln('Отсортированная последовательность:');
  for i := 1 to n do write(a[i]:10);
  readln
end.