Поменять местами максимальный элемент и первый - Pascal ABC

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

Написать программу для создания файла с записью массива из n элементов в диапазоне от [-30;30]. Программа для обработки массива в соответствии с заданием, массив считывается из ранее созданного файла. Поменять местами максимальный элемент и первый. Нужно две программы: одна создает файл а вторая считывает.

Решение задачи: «Поменять местами максимальный элемент и первый»

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

var
i, n, a:integer;
f:text;
begin
writeln('Введите количество элементов массива: ');
readln(n);
assign(f,'input.txt'); rewrite(f);
for i:=1 to n do
    begin
    a:=-30 + random(61);
    write(f,a,' ');
    end;
close(f);
end.

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

Введите количество элементов массива: 20
a: -30 + random(61)
write(f,a,' ')
for i:=1 to n do
1. a:= -30 + random(61)
2. write(f,a,' ')
end
close(f)