Паскаль АВС. Дан массив из 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] gt; 0)and(A[i] lt; B) then
      B := A[i];
  WriteLn('Меньшее положитиельное чилсо: ',B);
End.