удаление из текста гласных букв, помогите решить задачу. А то я совсем в этом не разбираюсь. Заранее бл Опции

[пaша]

мне нужно сдать это задание, кто может сделать напишите пожалуйста.

[Ozzя]

Честно говоря, мальчишки (7-й класс) писали
Я не всматривался, проверил, удаляет и ладно

[Malice]

Я не всматривался, проверил, удаляет и ладно

Проверь тогда на строке "AADUUHU"

[Ozzя]

Проверь тогда на строке "AADUUHU"

Точно! (С)
На балл оценку снижу

Var
  S:string;
  i:integer;
begin
  s:='AAUUDUH';
  for i:=Length(s) downto 1 do
    begin
      if upcase(s[i]) in ['A', 'E', 'I', 'O', 'U'] then
        delete(s,i,1);
    end;
  writeln(s);
end.