Задан массив из случайных чисел из ста элементов.найти минимальный элемент массива.составить блок-схему.

Var
m: array[1..100] of integer;
x,min:integer;
begin
 randomize;
for x:=1 to 100 do
 m[x]:=random(20);
for x:=1 to 100 do
write(m[x]:5);
writeln;
min:=m[1];
for x:=2 to 100 do
 if m[x] < min then 
min:=m[x];
writeln('Минимум = ', min);
end.