В массиве хранится...

В массиве хранится информация о стоимости 1 кг 20 видов конфет. Определить, сколько стоят самые дешёвыеконфеты.

 

var
min,i:integer;
x: array [1..1000] of integer;
begin
writeln('стоимость за 1 кг 20 видов конфет:');
for i:=1 to 20 do
begin
x:=random(71)+20;
write(x:4);
end;
min:=x[1];
writeln;
for i:=2 to 20 do
begin
if min>x then
min:=x;
end;
writeln('самые дешёвые конфеты стоят ',min);
end.