Даны натуральные числа 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. Строки - хорошие вещи =)