Дано натуральное число. найти номер цифры 3 в нем, считая от конца

Var a, bug, m:integer;

s:string;

begin;

readln (a);

str (a, s); / / переводим число в строку

writeln ('Result:');

while pos ('3', s) 0 do / / пока 3 есть в строке выполнять

begin;

m:=length (s) - pos ('3', s) + 1; / / длина строки-позиция тройки+1

delete (s, pos ('3', s),1); / / удаляем 3 из строки чтобы можно было проверить след.

writeln (m);

end;

end.