Помогите пожалуйста, срочно!!
Написать программу в Турбо Паскале.
Задание:Дан текстовый файл f. Исключить гласные буквы из строк и поместить результат в файл q.

var
  f, q: Text;
  i: integer;
  s: string;

begin
  Assign(f, in.txt);
  Reset(f);
  Assign(q, out.txt);
  rewrite(q);
  while not EOF(f) do
  begin
    readln(f, s);
    i := 1;
    while (i <= length(s)) do
    begin
      if (upcase(s[i]) in [А, Е, Ё, И, О, У, Ы, Ю, Я]) then
        delete(s, i, 1);
      inc(i);
    end;
    writeln(q, s);
  end;
  close(f); close(q);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.