подкоректировать.обработка символьных данных и строк

[felmor]

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв, между соседними словами -
не менее одного пробела, за последним словом - точка. Напечатать слово с максимальной длиной.

чего здесь не хватает?
прошу о помощи



uses crt;
var slovo,s,m1 :string;
result,i,m,max:integer;

stroka:array[2..50] of string[8];
symbol:array[1..8] of char;

begin
writeln('input string: ');
readln(s);
i:=1;
m:=1;

max:=0; {maximalnaya dlina slova}
m1:=''; { }
while s[i]='.' do
begin
while s[i]<>' ' do i:=i+1;
slovo:=copy(s,m,i-1);
m:=i+1;
if max<length(slovo) then
m1:=slovo;
max:=length(m1);
readln;
end;
end.

[alex_fcsm]

uses crt;
var s,sub:string;
    i,n,max:integer;
    a:array[1..50] of string;

begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
max:=1;
for i:=2 to n do
 if  length(a[i])>max then max:=i;
 writeln(a[max]);
end.