Найти из N чисел минимальное - Turbo Pascal

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

Найти из N чисел минимальное. Каким по порядку было введено минимальное число? Указание: для номера минимального числа нужно отвести специальную ячейку.

uses Crt;
Var i, chislo, min: integer;
begin
ClrScr;
   ReadLn(min);
   for i:= 2 to 5 do begin
      ReadLn(chislo);
      if chislo < min then min:= chislo;
         chislo:= i;
     end;
    WriteLn(' Миним. число: ' , min);
     WriteLn(' Его индекс: ' , chislo);
  ReadLn
end.

На выходе имеем:

12
2
9
14
21
   Миним. число:   2
   Его индекс:   5

Что значит в условии: "для номера минимального числа нужно отвести специальную ячейку". И почему у меня индекс минимального числа не тот?

Решение задачи: «Найти из N чисел минимальное»

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

uses Crt;
Var i, chislo, min, nom: integer;
begin
ClrScr;
for i:=1 to 5 do
 begin
  ReadLn(chislo);
  if i=1 then
   begin
    min:=chislo;
    nom:=1;
   end
  else if chislo<min then
   begin
    min:=chislo;
    nom:=i;
   end;
end;
WriteLn(' Миним. число: ' , min);
WriteLn(' Его индекс: ' , nom);
ReadLn
end.

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

Программа на языке Turbo Pascal.
Задача программы: найти из пяти чисел минимальное.
Переменные:
- i — счётчик для цикла по числам от 1 до 5;
- chislo — текущее считанное число;
- min — переменная для хранения минимального числа;
- nom — переменная для хранения индекса минимального числа.
Цикл for собирает пять чисел.
Если это первое число, то min=chislo и nom=1.
Если это не первое число и chislo<min, то min=chislo и nom=i.
После цикла выводится сообщение с минимальным числом и его индексом.
Программа завершается.