Выброс из записи исходного числа цифр( v delfi)

[viklen]

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

[Манжосов Денис :)]

var
  s: string;
  i: byte;
begin
  s := '59015509';
  for i := 1 to Length(s) do
   if (s[i] = '0') or (s[i] = '0') then s[i] := '';
end.