Pascal. Задача 5-4

Убрать из введенной пользователем строки на латинице все символы, кроме заглавных и строчных символов, пробелов и всех знаков препинания.

Решение

var
  sin, sout :string;
  i, cnt1, cnt2 : integer;
begin
  write('Введите текст: ');
  read(sin);
  sout := '';
  for i := 1 to Length(sin) do
    if sin[i] in ['a'..'z', 'A'..'Z', ' ', '.', ',', '?', '!','-', '(', ')'] then
      sout := sout + sin[i];
  writeln(sout);
end.