Паскальчик !)) Блок сема

[Weyner]

Добрый всем вечер !))
Составить блок схему и программу для задачи с циклическим алгоритмом.
*********************************** ******** ЗАДАЧА
Задана последовательность из n целых чисел. Определить порядковый номер минимального элемента последовательности

[Weyner]

.... задача просто но ...

[_-Re@l-_]

вот...

var
     a,n,min,i,x:Integer;
begin
        readln(n);
        min:=0;
        a:=1;
        for i:=1 to n do
        begin
                readln(x);
                if min>x then 
                begin
                        min:=x;
                        a:=n;
                end;
        end;
        writeln(a);
        readln;
end.