Нужно создать массив в паскале, который содержит 1000 трехзначных чисел и найти наименьшее из них

Вот наброски:

program z_3;

uses crt;

var mas:array [1..1000] of integer;

i, min : integer;

begin

for i:=1 to 1000 do

mas[i] :=random (900) + 99;

for i:= 1 to 999 do begin

write (mas[i]:4);

if mas [i] < min then min:=mas[i];end;

writeln;

writeln('минимальное=',min);

end

Kskdnrntbrjdjdk    1   06.12.2020 15:18    6