В динамической памяти расположена строка символов.

[Михаид]

Выручайте, тяжело дается динамика. Если можете подскажите алгоритм задачи.
Сама задача:"В динамической памяти расположена строка символов. Определить, сколько слов стоит в строке до слова максимальной длины."

[Stilet]

Попытки и наработки отсутствуют?

[Михаид]

попытки были только на с++

как то так)

const
dividers=[' ',',','.',';',':','-','=','+'];
var
str: ^string; 
temp,max:string;
i: integer;
KolSlov:integer;
Maxkolslov:Byte;
begin
new( str ); 

 readln(str^);
writeln; writeln(str^);
temp:=''; max:='';
Kolslov:=0; MaxKolslov:=0;

for i:=0 to length(str^) do
  begin
   if  (not (str^[i] in dividers)) and (str^[i] <> ' ') and (i <> Length(str^)) then
      temp:=temp+str^[i]
   Else
   if (str^[i] in dividers)  or (str^[i] = '') or (i = Length(str^)) then
   begin
     Inc(Kolslov);
     if length(temp)>length(max) then
     Begin
       MaxKolslov:=Kolslov-1;
       max:=temp;
     End;
     temp:=''
   end;
   end;
   dispose( str ); 
  writeln(max);
  Writeln(MaxKolslov);
  Readln
    end.

[Stilet]

Ну... Неплохо.
А теперь рассказывай чем не устраивает этот код.

[Михаид]

код устраивает)) просто раньше его не было, я его скинул так,для общего обозрения

[Stilet]

Ну как бы там ни было сам задачу решил (даже если код не твой).
Уже хорошо.