Доброго всем время суток!Помогите составить по блоку схем программу на цикл и массив.
Условие задачи есть в фотографии и блок схемы тоже на фотографиях.
(IMG:http://s005.radikal.ru/i212/1105/b7/b509cf4592fc.jpg)
(IMG:http://s15.radikal.ru/i189/1105/d0/8af5901b27ed.jpg)

Алгоритм верный, какие проблемы с переводом на язык программирования?

Я просто немогу создать массив!Цикл сделал а массив не поучается...
Вот цикл (IMG:style_emoticons/default/mellow.gif)
program с19;
var n,i,imax,x,xmax:integer;
begin
writeln('Vvedite kol-vo uchastnikov ');
readln(n);
writeln('Vvedite rezultat 1');
readln(xmax);
imax:=1;
for i:=2 to n do
begin
writeln('Vvedite reziltat ', i);
readln(x);
if x < xmax then
begin
xmax:=x;
imax:=i;
end;
end;
writeln('Luchshii ');
writeln(xmax);
writeln(imax);
readln;
end.