Нужно составить алгоритм : в последовательности целых положительных чисел определить максимальное четное число и его порядковый номер

var
  i, err, buf2: integer;
  buf: string;
  max: array [0..1] of integer;
begin
  writeln('Конец последовательности - пустая строка');
  repeat
    inc(i);
    readln(buf);
    val(buf, buf2, err);
    if (err > 0) then break;
    if ((buf2 > max[1]) and (buf2 mod 2 = 0)) then
    begin
      max[1] := buf2;
      max[0] := i;
    end;
  until false;
  writeln('[', max[0], '] => ', max[1]);
end.