Даны натуральные числа m и n.получить число состоящее из m последних чётных цифр числа n. написать программу на паскале только на паскале.

Var m, n, i: integer;
    a, b: string;
begin
     readln(m);
     readln(n);
     a := inttostr(n);
     for i := 1 to length(a) do
         if (strtoint(a[i]) mod 2 = 0) then b := b + a[i];
     for i := 0 to m - 1 do write(b[length(b) - i]);
end.

Строки - хорошие вещи =)