Строки(pascal) - удалить все гласные русские буквы

[wormiks40]

При введение текста должны удаляться все гласные буквы
Пример:Маша ела на антоновк

Ответ:Мш л нтнвк
помогите

[Hacker19_90]

for i := 1 to length(str)
  if str[i] in ['а','е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'] then
    Delete (str, i, 1);
WriteLn (str)

и выкладывайте наработки

[wormiks40]

program lab22;
uses crt;
var
i,j,n,l:integer;
s,s1:string;
  begin
  clrscr;
    s1:=('уеыаоэяию');
    writeln('введите предложение');
    readln(s);
    l:=length(s1);
    n:=length(s);
     for i:=1 to n do begin
     for j:=1 to l do begin
     if s[i]=s1[j] then delete (s,i,1);
     end;
     end;
  writeln(s);
  readln;
  end.

Получилось можете пожалуйста описать что делает каждая строчка нужно для защиты



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Hacker19_90 и wormiks40
делаете одну и ту же ошибку - нельзя в прямом цикле FOR удалять что-то, от чего зависит дальнейшее выполнение цикла.
Это обязательно приведёт к ошибкам!

нужно или использовать вместо for циклы с условием (while или repeat) или использовать ОБРАТНЫЙ цикл (в данном случае от конца строки к началу.)