help со строками

[SYL@R]

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

[Stilet]

А наработки показать?

[terminadoor]

Сталкивался с подобным. Лучше всего создай массив, где каждой ячейке будет соответствовать слово. А потом создай TStringList и помести туда массив. И тогда можно делать проверку ф-цией pos. В принципе сразу сделать без массива тоже можно, но мне кажеться, что так легче.

[SYL@R]

program Project2;
uses crt;
var i,k,z,x:integer;
s:string[250];
begin
   clrscr;
   writeln('                    avtor:NAUMOV IVAN ');
   writeln('                               Gruppa: evmk06-1 ');
   writeln('stroka sostoit iz slov, razdelennblx,tochkami. Podschitatb kolichestvo slov  s glasnoi bukvbl.');
  k:=0;
  s:='';
   write('vvedi slova cherez zapetyi' );
   writeln;

  z:=1;
  repeat
  s:='';
  readln(s);  x:=0;
  for i:=1 to length(s) do
  if (s[i]in [' '..'-'])or(s[i]in ['/'..'@'])or(s[i]in ['['..'`'])or(s[i]in ['{'..'~'])then x:=1;
  if x=0 then z:=0 else writeln('vvedi SLOVA!!! cherez tochku!' );
  until z<>1;

  for i:=0 to length(s)-1 do
  begin
  if (s[i]='.')and((s[i+1]='a')or(s[i+1]='e')or(s[i+1]='o')or(s[i+1]='u')
  or(s[i+1]='i')or(s[i+1]='y')) then k:=k+1;
  end;
  if ((s[1]='a')or(s[1]='e')or(s[1]='o')or(s[1]='u')
  or(s[1]='i')or(s[1]='y')) then k:=k+1;
  writeln('kolichestvo slov nachinaulll s glasnoi   ',k);
  readln;
end.

что надо изменить в коде чтобы получить это задание?
Строка Т состоит из слов, равной длины, разделенных запятыми. Найти слово, содержащее наибольшее число гласных букв.

[Stilet]

terminadoor

Ему походу в Паскале нуна.

Вот мое решение:

var ma,ms,s:string;max,k,i:integer;
begin
s:='poaror keporkopr p oaerr ke orapoa krpokae ';
i:=1 ;k:=0;
while i<=length(s) do begin       ms:=ms+s[i];
   if s[i] in ['a','e','o'] then begin inc(k);end;
   if s[i]=' ' then begin
   if k>max then begin
      max:=k ;  ma:=ms;
   end;
      ms:='';  k:=0;
   end;
   inc(i);
end;
writeln(s+' = '+ma);
end;

Здесь только парочка гласных учиывается, добавь остальные букавы )

[puporev]

Поскольку

Строка Т состоит из слов, равной длины, разделенных запятыми.

немного поправлю.

uses crt;
var ma,ms,T:string;max,k,i:integer;
begin
clrscr;
T:='poaror,keporkopr,p,oaerr,ke,orapoa, krpokae';
i:=1 ;k:=0;
while i<=length(T) do
   begin
     if (T[i]<>',') then
     ms:=ms+T[i];
     if T[i] in ['a','e','o'] then
       begin
         inc(k);
       end;
     if T[i]=',' then
       begin
         if k>max then
            begin
              max:=k;
              ma:=ms;
            end;
         ms:='';
         k:=0;
       end;
    inc(i);
   end;
writeln(T);
writeln('Bolshe glasnyh v slove: ',ma);
readln
end.

[Stilet]

немного поправлю.

Надеюсь автор сам понял где и что нужно подправить )