Найти наименьший положительный элемент массива

const
  n=15;
type
  mas=array[1..n] of integer;
var
  a:mas;
  i,imin:integer;
begin
  randomize;
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=-40+random(81);
      write(a[i]:4);
    end;
  writeln;
  {Ishem perviy polozhitelniy}
  i:=1;
  while (a[i]<=0) and (i<=n) do
    i:=i+1;
  if i>n then{vyshli za granitsu massiva}
    writeln('Polozhitelnyh elementov v massive net.')
  else
    begin
      imin:=i;
      for i:=imin+1 to n do
        if (a[i]>0) and (a[i]<a[imin]) then
          imin:=i;
      writeln('Min. polozh element ',a[imin],' , ego indeks ',imin);
    end;
end.

uses crt;
const n=20; //размер массива
var  a:array [1..n] of integer;
     i,min:integer;
begin
//заполняем массив
writeln ('Input array');
for i:=1 to n do
  begin
    write ('a[',i,']= ');
    readln (a[i]);
  end;
for i:=1 to n do
  if a[i]>0 then min:=a[i];
for i:=1 to n do
  if (a[i]>0) and (a[i]<min) then
    min:=a[i];
writeln ('min= ',min); //выводим его на экран
readln;
end.

program mas;
uses crt;
label 1;
var a: array [1..10] of integer;
i,min,k: integer;
begin
clrscr;
k:=0;
for i:=1 to 10 do
begin
write('a[',i,']= ');
readln(a[i]);
end;
min:=32767;
for i:=1 to 10 do
if (a[i]<min) and (a[i]>0) then min:= a[i]
else k:=k+1;
if k=10 then
begin
 writeln('íåòó ïîëîæèòåëüíûõ ýëåìåíòîâ');
 goto 1;
end;
writeln('min= ',min);
1:readln;
end.