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

[пaша]

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

[Ozzя]

Для латинских

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

[Malice]

Для латинских

Лучше с конца строки к началу идти, тогда за границы не вылетишь, у тебя же она по ходу короче становится.