Нужно составить алгоритм

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

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.