Переписать программу - Pascal

Формулировка задачи:

Нужно найти максимальный элемент строки чисел, и поменять его знак на противоположный:

var
  a,n,i,max:integer;
begin
  write('Количество элементов: ');readln(n);
  for i:=1 to n do
    begin
      write('Введите ',i,'-е число: ');readln(a);
      if a>max then
          max:=a;
  end;
  writeln('Максимальный элемент: ',max*(-1));
  readln();
end.

Программа работает нормально, только вот как сделать что бы вместе с этим числом выводилась также строка которая была введена? ну например строка: 1 2 8 9 2 0 вывелось 1 2 8 -9 2 0

Решение задачи: «Переписать программу»

Листинг программы

var n,i,max,max_mesto:integer;
    mas:array [1..100] of Integer;
begin
  max_mesto:=1;
  write('Size of array =  ');readln(n);
  for i:=1 to n do
    begin
      write('Array [',i,'] = ');readln(mas[i]);
      if (i=1) then max:=mas[1]
      else
        if (max<mas[i]) then
            begin
              max_mesto:=i;
              max:=mas[i];
            end;
    end;
  writeln('MAX element = ',max);
  mas[max_mesto]:= mas[max_mesto]*-1;
  Write('Array finish = ');
  for i:=1 to n do
    Write(mas[i],' ');
  readln;
end.

Объяснение кода листинга программы

Объявлены переменные: n, i, max, max_mesto (целочисленные) и массив mas (типа Integer) размером 100.
Инициализируется переменная max_mesto значением 1.
Выводится запрос на ввод размера массива (n) и считывается его значение.
В цикле от 1 до n происходит: Выводится запрос на ввод элемента массива (mas[i]) и его значение считывается. Если i=1, то max присваивается значение mas[1]. Если max меньше текущего элемента массива (mas[i]), то: max_mesto присваивается значение i. * max присваивается значение mas[i].
Выводится сообщение с максимальным элементом массива (max).
Элемент mas[max_mesto] умножается на -1.
Выводится сообщение с окончанием массива (все элементы в строке).
Программа ожидает ввода для подтверждения корректности работы программы.