Замещение Т8.Зд1

Program zd1;
Var
  i, j, m, nm, n: integer;
  t:array[1..100] of integer;
  a: array[1..100] of integer;

Begin {Дан одномерный массив. Найти в этом массиве наибольший элемент и его
порядковый номер. Отсортировать элементы массива по возрастанию методом
«замещения».}
  Writeln('-'*30); //разделение для удобного чтения
  Write('Введите размер массива: '); readln(n); //ввод размера массива
  Writeln('-'*30); //разделение для удобного чтения
  writeln('Стартовый массив: '); //оформление
  write('t[',n,']: '); //оформление
  for i:=1 to n do begin
    t[i]:= random(-100,100); //заполнение элемента случайным числом от -100 до 100
    write(t[i]:5); //вывод элемента
  end;
  writeln; //переход на новую строку
  for i := 1 to n Do begin //сортировка замещением
    m := t[1];
    nm := 1;
    for j := 1 to n Do begin
      if t[j] < m then begin
        m := t[j];
        nm := j
      end;
    end;
    a[i] := m;
    t[nm] := 999;
  end;
  Writeln('-'*30); //разделение для удобного чтения
  Writeln('Отсортированный массив (По возрастанию): '); //оформление
  write('a[',n,']: '); //оформление
  for i:=1 to n do
    Write(a[i]:5); //вывод сформированного массива
  writeln;
  Writeln('-'*30); //разделение для удобного чтения
  Writeln('Максимальный элемент: ', m);
  Writeln('-'*30); //разделение для удобного чтения
  Writeln('Номер max элемента: ',nm);
  Writeln('-'*30); //разделение для удобного чтения

end.