Найти максимальный из положительных элементов массива - Pascal ABC

const
  n = 20;
 
var
  C: array[1..n] of real;
  i: byte;
  a, b, maxelem: real;
  first: boolean;
  
begin
  write('a = ');
  readln(a);
  repeat
    write('b = ');
    readln(b);
  until b > a;
  first := false; //положительный элемент не найден
  for i := 1 to n do begin
    c[i] := random * (b - a) + a;
    write(' ', c[i]:0:3);
    if c[i] > 0 then
      if not first then begin
        maxelem := c[i];
        first := true //положительный элемент найден
      end else
        if maxelem < c[i] then maxelem := c[i]
  end;
  writeln;
  if first then writeln('Максимальный из положительных элементов: ', maxelem:0:3)
  else writeln('Положительных элементов нет')
end.