Дана символьная строка. Удалить из нее все символы, не являющиеся заглавными буквами русского или латинского алфавита — Pascal(Паскаль)

const
    zb=['A'..'Z','А'..'Я','Ё'];
var
    i:integer;
    s:string;
begin
    writeln('Введите строку');
    readln(s);
    for i:=length(s) downto 1 do
        if not(s[i] in zb) then delete(s[i,1);
    writeln('Itog');
    writeln(s);
end.