При выполнении разных операций с массивами, получается так, что первый элемент является нулевым - Turbo Pascal

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

Доброго времени суток. Можете помочь? Проблема в том, что иногда, при выполнении разных операций с массивами, получается так, что первый элемент является нулевым. К примеру в программах по поиску индекса максимального/минимального. Подскажите как это исправить? Еще было бы хорошо, если бы мне помогли с программой, в которой нужно поменять местами максимальный с минимальным, соответственно используя их индексы.

const n=10;
var a:array[1..n] of integer;
i,max,min,nummax,nummin:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do begin
                 a[i]:=random(20)-5;
                 write(a[i]:4);
                 end;
max:=1; min:=1;                 
for i:=1 to n do
if a[i]>max then begin
                 max:=a[i];
                 nummax:=i;
                 end;
for i:=1 to n do
if a[i]<min then begin
                 min:=a[i];
                 nummin:=i;
                 end;
{Поменять местиами максимальный элемент с минимальным}
writeln;
writeln('Max switched with min');
for i:=1 to n do
write(a[i]:4);
end.

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

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

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,max,min,x:integer;
begin
clrscr;
randomize;
writeln('Array:');
for i:=1 to n do
 begin
  a[i]:=random(20)-5;
  write(a[i]:4);
 end;
writeln;
max:=1; min:=1;
for i:=1 to n do
if a[i]>a[max] then max:=i
else if a[i]<a[min] then min:=i;
writeln('Max element a[',max,']=',a[max],' min element a[',min,']=',a[min]);
x:=a[max];
a[max]:=a[min];
a[min]:=x;
writeln('Max switched with min');
for i:=1 to n do
write(a[i]:4);
readln
end.

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

В начале кода подключается библиотека crt, которая используется для работы с потоками ввода-вывода в Turbo Pascal.
Затем определяется константа n, которая определяет количество элементов в массиве a.
Далее объявляются переменные a, i, max, min, x, которые будут использоваться в дальнейшем коде.
Строка clrscr используется для очистки экрана перед началом работы программы.
С помощью функции randomize устанавливается начальное значение генератора случайных чисел.
Выводится сообщение «Array:», чтобы показать, что будет заполнен массив a.
Затем идет цикл for, который проходит от 1 до n (количество элементов в массиве a) и заполняет каждый элемент массива случайным числом от 0 до 19.
После завершения цикла выводится сообщение с максимальным и минимальным элементами массива a.
Далее переменная x присваивается значению максимального элемента массива a.
Затем происходит обмен значениями между максимальным и минимальным элементами массива a.
После этого выводится сообщение «Max switched with min», чтобы показать, что произошел обмен.
Заключительный цикл for используется для вывода всех элементов массива a на экран.
Программа завершается с помощью функции readln.