После введения из клавиатуры произвольной строки вывести на экран эту строку, но с отобранными из него латинскими буквами — Pascal(Паскаль)

var
  s: string;
  i: byte;
begin
  ReadLn(s);
  for i := Length(s) downto 1 do
    if s[i] in ['a'..'z', 'A'..'Z'] then
      Delete(s, i, 1);
  WriteLn(s);
  ReadLn;
end.