Помогите сделать в паскале!!. Вводится число N. Определить максимальную четную цифру этого числа.

Const
  etalon = 8642;

var
  n: real;
  s: string;
  i, k: integer;

begin
  writeln(Введите число);
  readln(n);
  Str(n,s);
  i := 1;
  repeat
    k := Pos(etalon[i], s);
    if k = 0 then i := i + 1
  until (k <> 0) or (i > Length(etalon));
  if k > 0 then
    writeln(Наибольшая четная цифра в числе: , s[k])
  else
    writeln(В числе не найдено четных цифр)
end.

Тестовый прогон

Введите число
3.14159265359893
Наибольшая четная цифра в числе: 8

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.