Найдите самое большое число из расположенных по порядку четных, положительных элементов

var
  A: array [1..20] of integer;
  i, k, max: integer;
 
begin
  k := 1;
  randomize;
  for i := 1 to 20
  do 
  begin
    A[i] := random(-50, 50);
    write(A[i], ' ');
  end;
  writeln;
  for i := 1 to 19
  do 
  begin
    if (A[i] > 0) and (A[i] mod 2 = 0) and (A[i + 1] > 0) and (A[i + 1] mod 2 = 0)
    then begin
      inc(k);
      if k > max
        then max := k;
    end
    else k := 1;
  end;
  if max > 0
    then writeln(max)
  else writeln('Подряд идущих нет');
end.

var
  A:array[1..20] of Integer;
  i,max:Integer;
 
begin
  max := -1;
  for i := 1 to 20 do 
    begin
      A[i]:=random(50);
      write(A[i],' ');
      if i mod 2 = 0 then
        if max<A[i] then max:=A[i];
    end;
  writeln;
  write(max);
end.

var
  A: array [1..20] of integer;
  i, k, max: integer;
 
begin
  k := 1;
  randomize;
  for i := 1 to 20
  do 
  begin
    A[i] := random(-50, 50);
    write(A[i], ' ');
  end;
  writeln;
  for i := 1 to 19
  do 
  begin
    if (A[i] > 0) and (A[i] mod 2 = 0) and (A[i + 1] > 0) and (A[i + 1] mod 2 = 0)
    then begin
      if A[i] > max
        then max := A[i];
    end;
  end;
  if max > 0
    then writeln(max)
  else writeln('Подряд идущих нет');
end.

var
  A: array [1..20] of integer;
  i, k, max: integer;
 
begin
  k := 1;
  randomize;
  for i := 1 to 20
  do 
  begin
    A[i] := random(-50, 50);
    write(A[i], ' ');
  end;
  writeln;
  for i := 1 to 19
  do 
  begin
    if (A[i] > 0) and (A[i] mod 2 = 0) and (A[i + 1] > 0) and (A[i + 1] mod 2 = 0)
    then begin
      if A[i] > max
        then max := A[i];
      if A[i+1]>max
        then max:=A[i+1];
    end;
  end;
  if max > 0
    then writeln(max)
  else writeln('Подряд идущих нет');
end.

var A: array [1..20] of integer := (-1, 10, -42, 42, -49, -46, 30, 13, -22, -36, -21, -12, -7, 42, 24, 46, -5, -15, 24, -26);
begin
  var k := 0;
  Arr(A).Select(v -> begin var t := k; if (v <= 0) or odd(v) then begin Inc(k); t := 0 end; result := (v, t) end).
    Where(v -> v[1] > 0).GroupBy(v -> v[1]).Select(g -> g.Count > 1 ? g.Select(v -> v[0]).Max :-1).OrderBy(v -> v).
    Select(v -> IntToStr(v)).Where(v -> v <> '-1').DefaultIfEmpty('Подряд идущих нет').LastOrDefault.Println;
end.