Паскаль авс. дан массив из c чисел. определить в нём самое маленькое положительное число.

Const
  N = 10; //Задаём размерность массива
Var
  A: array[1..N] of integer; //Объявляем массив
  i, B: integer;
Begin
  Randomize;
  Write('Исходный массив:');
  For i:= 1 to N do
  Begin
    A[i] := random(2*N+1)-N; //Заполняем массив случайными числами
    Write(' ',A[i]); //и выводим его на экран
  End;
  WriteLn;
 
  B := A[N]; //В переменной B будет находится искомое число
  For i:= 1 to N-1 do
    if (A[i] > 0)and(A[i] < B) then
      B := A[i];
  WriteLn('Наименьшее положитиельное чилсо: ',B);
End.