Дано натуральное число. найти номер цифры 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.