Поменять порядок следования цифр в заданном натуральном числе n на обратный, удалив при этом из записи получаемого числа все вхождения цифры k

Введите символ для исключения 3
5412412487652421

//Вариант без местного оккультизма
//Pascal ABC.NET v3.0 сборка 1111
var
   s:string;
  c:char;
  i:integer;
begin
writeln('Введите число:');
readln(s);
writeln('Введите исключение:');
readln(c);
for i:=length(s) downto 1 do
if s[i]<>c then write(s[i]);
end.

Пример выполнения:
Введите число:
1234
Введите исключение:
3
421