Нужно создать массив в паскале, который содержит 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

Информа́ция (от лат. informātiō — «разъяснение, представление, понятие о ч.-л.», от лат. informare — «придавать вид, форму, обучать; мыслить, воображать») — сведения, независимо от формы их представления, воспринимаемые человеком или специальными устройствами как отражение фактов материального мира в процессе коммуникации.

Информация — это не материя и не энергия, информация — это информация

Норберт Винер

Определения понятия «информация» из международных стандартов:

-знания о предметах, фактах, идеях и т. д., которыми могут обмениваться люди в рамках конкретного контекста;

-знания относительно фактов, событий, вещей, идей и понятий, которые в определённом контексте имеют конкретный смысл.

// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,h:real;
  Write('Введите a,b,h: '); Read(a,b,h);
  var n:=Trunc((b-a)/h);
  for var i:=0 to n do begin
    var x:=a+i*h;
    var y:=cos(x)*sqrt(x);
    Writeln(x:6:3,y:15:5)
    end
end.

Пример
Введите a,b,h: 0.2 3.2 0.3
 0.200        0.43830
 0.500        0.62054
 0.800        0.62315
 1.100        0.47574
 1.400        0.20111
 1.700       -0.16799
 2.000       -0.58852
 2.300       -1.01046
 2.600       -1.38169
 2.900       -1.65348
 3.200       -1.78580