Найти минимальное значение среди положительных элементов массива

var
  m: array[1..20] of real;
  i: integer;
  me, n: real;
 
begin
  write('Mассив М = ');
  for i := 1 to 20 do 
  begin
    m[i] := random(100) - 50;
    write(m[i], ' ');
  end;
  me := m[1];
  n := 1;
 for i := 2 to 20 do
    if m[i] < me then
if m[i] > 0 then
    begin
      me := m[i]; 
      n := i;
    end;
writeln;
  writeln('Mинимальное значение массива cреди положительных элементов M[', n, '] = ', me);
end.

const
  n = 20;
 
var
  m: array[1..n] of real;
  j, i, k: integer;
  me: real;
 
begin
  writeln('Mассив М = ');
  for i := 1 to n do 
  begin
    m[i] := -n div 2 + random * n;
    write(m[i]:8:2);
  end;
  writeln;
  k := 0;
  for i := 1 to n do 
    if m[i] > 0 then
    begin
      k := i;
      break;
    end;
  if k <> 0 then
  begin
    me := m[k];
    for i := k to n do
      if (m[i] < me) and (m[i] > 0) then
      begin
        me := m[i]; 
        j := i;
      end;
    writeln('Mинимальное значение массива cреди положительных элементов M[', j, '] = ', me);
  end
  else
    writeln('В массиве нет положительных элементов');
end.