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

[Shevali]

Здравствуйте. Тут такая задача:
Найти из N чисел минимальное. Каким по порядку было введено минимальное число?
Вот что я составил:

var i, chislo, min, n: integer;
p: integer; {порядковый номер минимального числа}
begin p:=1;
writeln ('введите n чисел');
readln (n);
writeln ('введите числа');
readln (min); {вводим первое число}
for i:=2 to n do {вводим остальные числа}
begin
readln (chislo); {ввели очередное число}
p:=p+1;
if chislo<min then min:=chislo; {если оно больше предыдущей,
то присваиваем переменной min}
writeln (p,' - порядковый номер минимального числа');
end; {for}
writeln ('минимальное число = ',min);
readln;
end.

Минимальное число находится, только вот с порядковым номером не очень получается. Не могу сообразить как поступить.
Если не трудно, подскажите. Спасибо.

[Sazary]

Просто вводите еще одну переменную для хранения индекса.

uses crt;
var
i, chislo, min, n: integer;
minp : integer;
p: integer; {порядковый номер минимального числа}

begin
clrscr;
p:=1;
writeln ('введите n чисел');
readln (n);
writeln ('введите числа');
readln (min); {вводим первое число}
minp := 1;
for i:=2 to n do {вводим остальные числа}
 begin
 readln (chislo); {ввели очередное число}
 p:=p+1;
 if chislo<min then
  begin
  min:=chislo; {если оно больше предыдущей,
 то присваиваем переменной min}
  minp := p;
  end;
 end; {for}
writeln ('минимальное число = ',min);
writeln (minp,' - порядковый номер минимального числа');
readln;
end.

[Shevali]

Спасибо Sazary, всё получилось.