Удаление цифр из записи исходного числа

[ven]

Дано натуральное число n. Выбросить из записи исходного числа цифры 0 и 5, оставив прежним порядок остальных цифр. Например, из числа 59015509 должно получиться 919.

[BHy4ok]

Проект прикреплен ниже архивом, думаю скомпилируете сами.
[syntax='Delphi']
var
s:string;
begin
S:=Edit1.Text;
while pos('5',S)>0 do
delete(S,pos('5',S),1);
while pos('0',S)>0 do
delete(S,pos('0',S),1);
Edit2.Text:=S;
[/syntax]