задача Pascal

[P3L3NG]

Задание
Разделитель — один из символов « ,.;:!?"'» (начиная с пробела и заканчивая апострофом). Буква — любой символ, отличный от разделителя. Слово — последовательность букв, ограниченная с каждой стороны разделителем или концом строки. Например, в строке «x9i23!слово, ,» два слова — «x9i23» и «слово».

Исходная строка вводится с клавиатуры, изменённая строка выводится на экран. Если в задании используется «заданное» слово, оно также вводится с клавиатуры. Разделители в программе представляются как множество.

Требуется произвести одно из следующих действий (при всех манипуляциях со словами разделители сохранять без изменений):

удалить слова, содержащие хотя бы 4 различные буквы, и продублировать остальные слова;

Есть 2 сорца: один - другой вариант, второй - этот , но не верно выполняющийся.


Кто напишет и за скока ?
Срок - Сегодня до 00.00 (мск)

[-=Razor=-]

var delim,sent,result,tmps:string;
dArr : array[1..100] of byte;
i,p,k,w:byte;
begin
delim := ' ,.;:!?"''';
sent:= 'Let''s say, there is a test, simple: example. Clear? Sure! Next; aga well.';
sent:= ' '+sent+' ';
w:=0;

for i:=1 to 100 do dArr[i]:=0;
for i:=1 to length(delim) do
begin
tmps:=sent;
k:=pos(delim[i],tmps); p:=0;
while (k>0) do
begin
p:=p+k;
w:=w+1;
dArr[w]:=p;
Delete(tmps,1,k);
k:=pos(delim[i],tmps);
end;
end;

for i:=1 to w-1 do
for k:=i+1 to w do
if (dArr[i]>dArr[k]) then
begin
p:=dArr[i];
dArr[i]:=dArr[k];
dArr[k]:=p;
end;
result:='';
for i:=1 to w-1 do
if (dArr[i+1]-dArr[i]>1) then
begin
tmps := copy(sent,1+dArr[i],dArr[i+1]-1-dArr[i]);
if (tmps[1]=tmps[length(tmps)]) then
result:=result+sent[dArr[i+1]]
else
result:=result+tmps+' '+tmps+sent[dArr[i+1]]
end
else
result:=result+sent[dArr[i+1]];
writeln(' Original: '+sent);
writeln(' Result: '+result);
end.
Отпишись потом...

[P3L3NG]

Работает. Спс. Стучи в аську, могу номерок подарить или заплатить