Заполнить массив на 30 целочисленных элементов псевдослучайными значениями от -200 до 200, найти самое большое отрицательное число и самое маленькое положительное (Паскаль)

Program prog;Uses crt;var a: array [0..29] of integer;    max, min, i: integer;    begin;clrscr;randomize;max:=-201;min:=201;for i:=0 to 29 dobegina[i]:=random(401)-200;write(a[i],'  ');if (a[i]>max)and(a[i]<0) thenmax:=a[i];if (a[i]<min)and(a[i]>0) thenmin:=a[i];end;writeln;writeln;writeln('max neg = ', max);writeln('min pos = ', min);readln;end.