Подпрограммы-процедуры в Delphi. Найти наименьшие положительные элементы и их порядковые номера в массиве

[emalf]

Условие программы:Найти наименьшие положительные элементы и их порядковые номера массивов X(N), Y(M)

В чем ошибка?
Помогите, пожалуйста. Сколько не пыталась все не получается сделать минимальное положительное число в подпрограмме.

Program Proc1;
{$APPTYPE CONSOLE}
uses windows, sysutils;
type vector=array[1..20] of real;
var a,b,c:vector;
i,k:integer;
min:real;
nmin:integer;
procedure vvod(l:integer;var x:vector);
var j:integer;
begin
for j:=1 to l do
begin
x[j]:=(random(10)-5)/2;
write(x[j]:5:1);
end;
writeln;
end;
procedure min1(x:vector;l:integer; var rmin:real; var n:integer);
var j:integer;
begin
rmin:=x[1]; n:=1;
 for j:=1 to l do
if x[j]>0 then rmin:=x[j];
for j:=2 to l do
if (x[j]>0) then
begin
rmin:=x[j]; n:=j;
end;
end;
begin
SetConsoleCP(1251);
SetConsoleOutPutCP(1251);
randomize;
write ('Vvedite razmer pervogo massiva x: ');
read (k);
vvod(k,a);
min1(a,k,min,nmin);
writeln('min=',min:1:1, ' indeks=',nmin);
writeln;
write ('Vvedite razmer vtorogo massiva y: ');
read (k);
vvod(k,b);
min1(b,k,min,nmin);
writeln('min=',min:1:1, ' indeks=',nmin);
readln;
readln;
end.

[type_Oleg]

if (x[j]>=0) and (x[j]=min) then // а чему равна переменная min ?

Кстати, положительные - это строго > 0.
А если в массиве вообще не окажется положительных, то что надо возвращать ?

[emalf]

Я исправила, но больше я не знаю что делать с этой подпрограммой. Куда вписывать

else writeln ('polojitelnih chisel net');

я тоже уже не соображаю

[type_Oleg]

Если у вас type vector начинается с индекса 1, то можно при отсутствии положительных сделать, чтоб возвращало n=0.
И проверять например так

 min1(a,k,min,nmin);
 if nmin=0 then writeln ('polojitelnih chisel net');

Кстати, у вас путаница с параметрами.
Написано procedure min1(x:vector;l:integer; var rmin:real; var n:integer); - а где далее определяется n ?
Запутались с формальным и фактическими параметрами.

[emalf]

begin
rmin:=x[1]; n:=1;
 for j:=1 to l do
if x[j]>0 then rmin:=x[j];
for j:=2 to l do
if (x[j]>0) then
begin
rmin:=x[j]; n:=j;
end;

все равно фигня получается. А после добавления:

 min1(a,k,min,nmin);
 if nmin=0 then writeln ('polojitelnih chisel net'); else...

нет изменений никаких

[type_Oleg]

Вот, добавьте второй массив, и все:

program emalf;

{$APPTYPE CONSOLE}

const NMAX=20;

type vector=array[1..NMAX] of Real;

procedure CreateArray(kol:Integer;var x:vector);
var i:Integer;
begin
 for i:=1 to kol do
  begin
   x[i]:=Random*10-5;
   Write(x[i]:5:2);
  end;
 WriteLn; 
end;
procedure MinPlus(x:vector;kol:Integer;var xMinPl:Real;var numMin:Integer);
var i:Integer;
begin
 numMin:=0;
 for i:=1 to kol do
  if x[i]>0 then
   begin
    numMin:=i;
    xMinPl:=x[i];
    break;
   end;
 if numMin=0 then Exit;
 for i:=numMin to kol do
  if (x[i]<xMinPl)and(x[i]>0) then
    begin
    numMin:=i;
    xMinPl:=x[i];
   end;
end;

var xx:vector;
   k,kMin:Integer;
   xMin:Real;
begin
 Randomize;
 Write('k = ');
 ReadLn(k);
 CreateArray(k,xx);
 MinPlus(xx,k,xMin,kMin);
 if kMin>0
  then Writeln('min=',xMin:5:2, ' indeks=',kMin)
  else Writeln ('polojitelnih chisel net');
 ReadLn; 
end.

Все работает

[emalf]

Спасибо большое!!