Определить наименьшее среди положительных элементов в массиве Х из 50 элементов или сообщить, что положительных нет

const
nmax=50;
type
mas=array[1..nmax] of integer;
var
x:mas;
n,i,imin:integer;
f:boolean;
begin
randomize;
repeat
  write('Vvedite razmer massiva-> ');
  readln(n);
until n>0;
for i:=1 to n do
  begin
  x[i]:=-25+random(51);
  write(x[i]:4);
  end;
 writeln;
 f:=false;
 for i:=1 to n do
   if (x[i]>0) and not f then
      begin
        f:=true;
        imin:=i;
      end
    else if (x[i]>0) and (x[imin]>x[i]) then
      imin:=i;
  if f then
    writeln('Min iz polozitelnix elementov massiva->',x[imin])
 else
 write('V massive net polozitelnix elementov');
 readln;
end.

const
nmax=50;
type
mas=array[1..nmax] of integer;
var
a,b,c:mas;
i,n,m:integer;
begin
randomize;
repeat
  write('Vvedite razmer massiva A-> ');
  readln(n);
  write('Vvedite razmer massiva B-> ');
  readln(m);
until n>0;
writeln('Massiv A:');
for i:=1 to n do
  begin
  a[i]:=random(50);
  write(a[i]:4);
  end;
 writeln;
 writeln('Massiv B:');
for i:=1 to m do
  begin
  b[i]:=random(50);
  write(b[i]:4);
  end;
 writeln;
for i:=1 to n+m do
  begin
    if i<=n then
      c[i]:=a[i]
    else
      c[i]:=b[i-n];
  end;
writeln('Massiv C:');
for i:=1 to n+m do
  write(c[i]:4);
readln;
end.