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

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

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.

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

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

Проверь тогда на строке "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.

Прости, а буква Y?
(а.понял.все)

а как сделать с русскими буквами?

замени гласные латинские на гласные русские

большое спасибо! А как можно блок схему составить?

Программа построения блок-схем

Добавлено через 5 мин.
Да, кстати, функция upcase для русских букв не работает. В проверке вставь еще и строчные гласные буквы.

напиши пожалуйста как она должна выглядеть.

if s[i] in ['У', 'Е', 'Ы', 'А', 'О', 'Э', 'Ё', 'Я', 'И', 'Ю','у', 'е', 'ы', 'а', 'о', 'э', 'ё', 'я', 'и', 'ю'] then

а после Begin АSDFGHU писать

Лучше вставь
readln(s);
чтобы пользователь мог вводить любой текст для проверки.