Индексы в массивах - Turbo Pascal

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

Всем привет, при сдаче лаб.работы по массивам, преподаватель спросил почему если (например) мин. значение внутри массива находится на первом индексе, он выводит его как нулевой индекс, разве в Паскале индексы не начинаются с 1? Фаронова открывал, сайты читал, нигде не нашел ответа. Помогите пожалуйста, код работает верно вот только этот вопрос с индексами надо решить.

program massiv1;
uses crt;
const n=10;
type mass = array [1..n] of byte;
var a:mass;
    i,s:integer; max,min,t,f:byte; p:longint;
begin
clrscr;
writeln('vvedite ',n,' elementov');
for i:=1 to n do read(a[i]);
max:=a[1];min:=a[1];
s:=0;p:=1;
for i:=1 to n do begin
if max<a[i] then begin max:=a[i];t:=i;end;
if min>a[i] then begin min:=a[i];f:=i;end;
s:=s+a[i];
p:=p*a[i];
end;
writeln('proiz = ',p,' sum = ',s,' max = ',max,' - ','indeks max = ',t,' min = ',min,' - ','indeks min = ',f);
readkey;
end.

Решение задачи: «Индексы в массивах»

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

t:=1; f:=1;
s:=0;p:=1;
for i:=1 to n do begin

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

В данном коде на языке Turbo Pascal происходит выделение памяти под массив из n элементов.

Переменная t инициализируется значением 1.
Переменная f также инициализируется значением 1.
Переменная s устанавливается в 0.
Переменная p устанавливается в 1.
Затем начинается цикл for, который выполняется n раз (от 1 до n).
На каждой итерации цикла переменные i, s и p изменяются следующим образом:
- i увеличивается на 1 (i := i + 1).
- Переменная s устанавливается в 1 (s := 1).
- Переменная p устанавливается в 2 (p := 2).
После завершения цикла переменные i, s и p сохраняют свои значения.
Код завершается. Таким образом, данный код выделяет память под массив из n элементов и инициализирует его значениями от 0 до n-1.