прикладная математика

ваше объяснение понятно, скорее всего так и есть. меня смущала фраза Вывести те слова, у которых слово слева совпадает со словом справа в принципе, получается что это пара одинаковых слов. Я изначально думал, что нужно вывести слова, у которых слово следующее(т.е. справа) совпадает со словом предыдущим(т.е. слева). т.е. искомые слова находятся между одинаковыми словами

Добавлено (27.10.10, 15:29)
---------------------------------------------
program blok7;
uses crt;
const sim=[' ', ',', '.', '!',';','?'];
var i,k,l,m:integer;
TecStr,s,EndStr,Str:string;

BEGIN
clrscr;
writeln('vvedite stroku');
readln(s);
for i:=length(s) downto 1 do
begin
if s[i] in sim then
i:=1
else
EndStr:=EndStr+s[i];
end;
for i:=length(Endstr) downto 1 do
Str:=Str+EndStr[i];
i:=1;
repeat
begin
if not(s[i] in sim) then
begin
TecStr:=TecStr+s[i]
end;
inc(i);
end;
until s[i] = ' ';
writeln(TecStr);

readkey;
end.

Добавлено (27.10.10, 15:30)
---------------------------------------------
это то что у самой получилось(( дальше не могу зацикливает,не знаю как сделать((

Мои мысли: program s;
var s2,s1:string; k,i,j,l,max:integer;
begin
writeln('введите текст');
readln(s1);
l:=0;
for i:=1 to 10000 do
begin
for k:=1 to 10000 do
begin

if s1[i]=k then l:=l+1;
for j:=1 to 100000 do
s2[j]:=s1[i];
write(s2[j]);
end; max:=s2[1];
for j:=1 to l do
if s2[j]>max then max:=s2[j];
writeln(s2[j]);
end.

Заранее большое спасибо