Delphi заготовки

{
Дан одномерный массив А(n), N=25, заданный случайным образом.
Вычислить количество отрицательных элементов данного массива.
Найти наименьший положительный элемент массива.
спецально для http://netsoftware.ucoz.ru
}

uses crt;
Const
 N = 25;
 var
 a:array [1..n] of integer;
 x:integer;
 minA:integer;
 countElement:integer;
 
 begin
 clrscr;
 Writeln('Дан одномерный массив А(n)');
 for X:=1 to n do begin
 a[x]:=-15+random(30);
 if a[x]>0 then minA:=a[x];
 write(a[x]:4);
 end;
 x:=n;
 countElement:=0;
 Writeln('');

 for X:=1 to n do begin
 if a[x]<0 then countElement:=countElement+1;

 if (a[x]>0) and (minA>a[x]) then minA:=a[x];
 end;
 
 Writeln('Количество отрицательных элементов данного массива ',countElement:2);
 Writeln('Наименьший положительный элемент массива равен ',minA:2);
 
 
 end.