помогите с задачей в паскале

[Tenzen]

Дана строка. Найти самое большое предложение по количеству слов в строке.

[Sazary]

Считаете слова до точки, при этом записывая само предложение в какую-нибудь переменную. Это количество слов в первом предложении. Затем снова считаете до точки, записывая предложение в буфер. Если количество слов в этом предложении больше, чем в том, которое запомнили, то запоминаем текущее.
И так до конца исходной строки.

[Tenzen]

я буду весьма благодарен, если ты мне составишь эту программу. потомучто я просто баран в паскале.

[Tenzen]

помогите пожайлуста, а то меня из итста могут из-за этого турнуть.

[Sazary]

uses crt;
var
s,predl,buf: string;
i,len,cnt,tekcnt : integer;

begin
clrscr;
readln(s);
len := length(s);
i := 1;
cnt := 0;
predl := '';

while i<=len do
 begin
  tekcnt := 0;
  buf := '';
 while (s[i]<>'.') and (i<=len) do
 begin
  while (s[i]=' ') and (i<=len) do
   begin
   buf := buf + s[i];
   inc(i);
   end;
  while (s[i]<>' ') and (s[i]<>'.') and (i<=len) do
   begin
   buf := buf + s[i];
   inc(i);
   end;
  buf := buf + s[i];
  inc(tekcnt);

  if s[i] = '.' then
   begin
   if cnt = 0 then
     begin
     predl := buf;
     cnt := tekcnt;
     end
   else
     begin
     if tekcnt>cnt then
       begin
       cnt := tekcnt;
       predl := buf;
       end;
     end;
     break;
   end;
 inc(i);
 end;

 inc(i);
 end;

writeln('Max:');
writeln(predl);

readln;
end.

[Tenzen]

спасибо, дружище! ты меня спас, я уже ни на что и не надеялся! спасибо огромное!