паскаль(строки)

program lab_7;

{$APPTYPE CONSOLE} {для турбо паскаля не нужно}

{можно было использовать массив, связанный список, но идею извлечения слова из строки я оставил
}

function slovo(s:string;i:byte):string;
var
j,x: integer;
w:string;
begin
w:='';
result:=''; x:=0;
{тут было важно сделать, чтобы 2 пробела подряд не считались за слово}
{а еще бойтесь пересечения имен параметров функции, глобальных и локальных переменных}
for j:=1 to length(s) do
begin
if (length(w)>0) and ((s[j]=' ') or (j=length(s))) then
begin
if (s[j]<>' ') then w:=w+s[j];
inc(x);
if (x=i) then
begin
slovo:=w;
break
end
else
w:='';
end
else
if s[j]<>' ' then
w:=w+S[j];
end;

end;

Procedure vivod;
var
i,x,k,z :byte;
s,w,w2 : string;
bilo : boolean;
begin
Readln(s);

k:=1; { - индекс основного цикла. }
z:=1; { - сколько раз слово встретилось }
x:=2; { - ищем повторения со второго слова}

w:=slovo(s,k);

while length(w)>0 do
begin
w2:=slovo(s,x);
bilo:=false;
while length(w2)>0 do
begin
if (w=w2) then {слова равны? }
if (x>k) then {не считаем 2 раза одно и тоже }
inc(z)
else
if (x<k)>1) and not bilo then {если слово встретилось более 1 раза и мы не считали его раньше - печатаем}
begin
writeln('slovo '+w+' povtoryaetsya ',z,' raz');
end;
z:=1; {эх, приходиться пробегать от начала строки, а не с позиции текущего слова. иначе одно и то же слово напечатаем несколько раз}
inc(k);
x:=1;
w:=slovo(s,k);

end;

end;

begin
writeln('vvedite elementu stroki');
vivod;
readln;
end.

Сделаю.
100 WMR

стучи в агент