Удалить из строки все цифры 7 и 9 — Pascal(Паскаль)

пример "135794775" = "13545"

uses crt;
var s:string;
    i:byte;
begin
clrscr;
writeln('Введите строку, содержащую символы 7 и 9');
readln(s);
{идем с конца строки что бы не нарушить индексы}
for i:=length(s) downto 1 do
{если 7 или 9}
if s[i] in ['7','9']then
delete(s,i,1);{удаляем}
write(s);
readln
end.