строки паскаль подскажите

[fawr]

вовдится предложение с клавиатуры (перед этим вводится переменная - количество слов в прелдожении, которое собираешься ввести - иммено так потому что по другому не знаю как...) а затем надо вывести то слова из предложения в котором наибольшее число гласных "а".... задача на паскале

uses
crt;
var
a,b:array [1..100] of string[100];
d:array [1..100] of integer;
s,z:string;
i,j,k,m,t,n:integer;
begin
clrscr;
writeln('ykazhite koli4estvo slov v predlozhenii');
readln(k);
writeln('piwite predlozhenie');
for i:=1 to k do
readln(a[i]); ---------------------- это начало, ввёл каждое слово как элемент массива... дальше надо ведь капаться в каждом из слов(в каждом из элементов массива) сравнивая его буквы с 'a' -------------
n:=0;
for i:=1 to k do
begin
t:=0;
b:=a[i];  ----- я вот ничего другого придумать не могу как кроме присваивать каждое слово другому масиву и перебирать его вот только так вроде нельзя.....   --------------
m:=length(a[i]);
for j:=1 to m do
if b[j]='a' then
inc(t);
end;

------------ тут начинается ступар и совсем ничего не идёт - подкиньте дровишек пожалуйста

[Dmitry333]

Количество слов в строке можно узнать по количесиву пробелов + 1.
Далее можно извращаться как-угодно: либо просто пробегать по словам до пробела и считать "а", затем удалять слово, либо вырезать слово из строки в другую и считать "а" пока не переберёшь все слова, либо..... пока фантазия не закончится

[Orakul89]

var
a:array [1..100] of string[100];
t:array [1..100] of integer;
i,j,k,n:integer;
begin
writeln('ykazhite koli4estvo slov v predlozhenii');
readln(k);
writeln('piwite predlozhenie');
for i:=1 to k do
readln(a[i]);
for i:=1 to k do
begin
t[i]:=0;
for j:=0 to length(a[i]) do
if a[i][j]='a' then t[i]:=t[i]+1;
writeln(length(a[i]),'   ',t[i],'    ',a[i]);
end;
n:=1;
for i:=2 to k do
if t[n]<t[i] then n:=i;
writeln(a[n],' - tut "а"');
readln;
end.

твой код с небольшими изменениями.

[Stilet]

иммено так потому что по другому не знаю как.

Показываю, я бы так сделал:

 var s,sm,e:string; i,mx,mm:integer;
begin
  readln(s);mx:=0;mm:=0;sm:='';s:=s+' ';
  i:=1; while i<=length(s) do begin
    if s[i]<>' ' then begin
     sm:=sm+s[i];
     mx:=mx+byte(s[i]='a');
    end else begin
      if mm<mx then begin e:=sm; mm:=mx; end;
      mx:=0;  sm:='';
    end;
    inc(i);
   end;
  writeln(e);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[dr.Chas]

var s, slovo : string;
    i : integer;

begin
    write('Vvedite tekst: ');
    readln(s);
    s:=s+'.';
    i:=1;  slovo:=''; 
    while i<>length(s)+1 do
    begin
      if s[i] in ['a'..'z','A'..'Z','1'..'9'] then slovo:=slovo+s[i]
      else begin {найдено слово содержится в переменой slovo выполняешь над ним своё условие} 
        slovo:='';
      end;      
      inc(i);
    end;
end.

Почти аналог кода Stilet. Только подразумевает ещё и запятые и различные знаки.

[fawr]

оооооо спасибо всем.
a[i][j] даже и не подозревал чт отак можно