Паскаль. Строки. Помогите

[LIARH]

Из заданной строки удалить слово, содержащее наименьшее число гласных.
Решите кто-нибудь, а то я уже запутался.

[puporev]

uses crt;
const lg=['A','a','E','e','I','i','O','o','U','u','Y','y'];{латинские гласные}
      rg=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','ы',{русские гласные}
          'Э','э','Ю','ю','Я','я'];

var i,j,k,l,mn,imn:byte;
    s,s1,s2:string;
begin
clrscr;
writeln('Введите строку:');
readln(s);
s:=s+' ';{добавим для удобства пробел в конец}
i:=1;{начало строки}
mn:=255;imn:=1;{начальное значение минимума и его начала}
while i<=length(s) do{пока не конец строки}
if s[i] <> ' 'then{если не пробел}
 begin
  j:=i;s1:='';{начинаем составлять слово}
  while s[j] <> ' 'do{пока не следующий пробел}
    begin
     s1:=s1+s[j];{составляем}
     j:=j+1;{идем дальше}
    end;
  k:=0;{пока гласных нет}
  for l:=1 to length(s1) do{идем по слову}
  if (s1[l] in lg)or(s1[l] in rg) then{если гласная}
  k:=k+1;{считаем}
  if k<mn then{если меньше чем в предыдущем минимуме}
   begin
    mn:=k;{это минимум}
    imn:=i;{позиция начала слова}
    s2:=s1;{само слово}
   end;
  i:=i+length(s1);{перепрыгиваем через него}
 end
else i:=i+1;{если пробел, идем дальше}
writeln('Меньше всего гласных в слове ',s2,' = ',mn);
delete(s,imn,length(s2));{удаляем слово}
delete(s,length(s),1);{удаляем пробел, который добавили}
writeln('Измененная строка:');
write(s);
readln
end.

[Anatole]

Попробуй так

uses crt;
const lg=['A','a','E','e','I','i','O','o','U','u','Y','y'];{латинские гласные}
      rg=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','ы',{русские гласные}
          'Э','э','Ю','ю','Я','я'];

var i,j,k,l,mn,imn:byte;
    s,s1,s2:string;
begin
clrscr;
writeln('Введите строку:');
readln(s);
s:=s+' ';{добавим для удобства пробел в конец}
i:=1;{начало строки}
mn:=255;imn:=1;{начальное значение минимума и его начала}
while i<=length(s) do{пока не конец строки}
begin
 while s[i] = ' ' do inc(i);{пробел может быть не один}
 j:=i;s1:='';{начинаем составлять слово}
 k:=0;{обнуляем счетчик гласных}
 while s[j] <> ' ' do{пока не следующий пробел}
    begin
     s1:=s1+s[j];{составляем}
     if (s1[j] in lg)or(s1[j] in rg) then{если гласная}  k:=k+1;{считаем}
     j:=j+1;{идем дальше}
    end;
  if k<mn then{если меньше чем в предыдущем минимуме}
   begin
    mn:=k;{это минимум}
    imn:=i;{позиция начала слова}
    s2:=s1;{само слово}
   end;
 i := i+j;   
 end
writeln('Меньше всего гласных в слове ',s2,' = ',mn);
delete(s,imn,length(s2));{удаляем слово}
dec(s[0]);{удаляем пробел, который добавили}
writeln('Измененная строка:');
write(s);
readln
end.

так немного проще

[LIARH]

Огромное спасибо, все работает, все понятно.

Токо щас заметил - программа всегда удаляет только ПЕРВОЕ слово, вне зависимости от того, сколько гласных в нем содержится

Пример: Первая Мировая война началась...

Прогр. удаляет слово "Первая"(3 гласные), хотя дожна удалить слово "война"(2 гласные)

[MaTBeu]

Ну видать программа букву `й` принимает за гласную.

[puporev]

Не надо лапшу на уши вешать. Видно что-то отремонтировал в программе, типа знак меньше на знак больше заменил или еще чего.
Вот скрин.

[Serge_Bliznykov]

не подверждаю!
Программа от puporev
для строки "Первая Мировая война началась..."

Меньше всего гласных в слове война = 2
Измененная строка:
Первая Мировая  началась...

[LIARH]

Все, извиняюсь, нашел у себя ошибку.

Сейчас все считает так, как надо