Паскаль/Cтроки/Задача

[ax/bx]

Дан текст, заканчивающийся точкой. Вывести все буквы, входящие в текст не менее двух раз.

var
s1,s2:string;
i,j,k:integer;
begin
readln(s1);
k:=0;
for i:=1 to length(s1) do
for j:=i to length(s1) do begin
if s1[i]=s1[j+1]
then s2[i]:=s1[i] ; k:=k+1;
end;
s2[0]:=chr(k);
write(s2);
writeln;
end.

Вот кусочек написал , не пойму одно , как например сделать чтобы при вводе:aaabbaabb.
Мне выводило только ab?

[sir.andrey]

Щас попробуем решить!!!!

[sir.andrey]

Я конечно не профи в этих делах (я на на первом курсе учусь), но вот чето накатал!!!
Сразу говорю, программа работает не правильно не могу ошибку найти!!!
program stroka;
var i,j:integer; s:string;
begin
writeln ('vvedite stroky');
readln (s);
for i:=1 to length(s)-1 do begin
for j:=i+1 to length(s) do begin
if s[i]=s[j] then delete (s,j,1);
end;
end;
for i:=1 to length(s) do write (s[i]);
readln;
end.

[sir.andrey]

Сообщение от sir.andrey

Я конечно не профи в этих делах (я на на первом курсе учусь), но вот чето накатал!!!
Сразу говорю, программа работает не правильно не могу ошибку найти!!!
program stroka;
var i,j:integer; s:string;
begin
writeln ('vvedite stroky');
readln (s);
for i:=1 to length(s)-1 do begin
for j:=i+1 to length(s) do begin
if s[i]=s[j] then delete (s,j,1);
end;
end;
for i:=1 to length(s) do write (s[i]);
readln;
end.

Если эту программу в ручную проверять вроде бы все получается!!!

[sir.andrey]

Урааааа!!!!!Ништяк!!!!!
ПОЛУЧИЛОСЬ!!!!!
program stroka;
var i,j,k:integer; s:string;
begin
writeln ('vvedite stroky');
readln (s);
for k:=1 to length(s) do begin
for i:=1 to length(s)-1 do begin
for j:=i+1 to length(s) do begin
if s[i]=s[j] then delete (s,j,1);
end;
end;
end;
for i:=1 to length(s) do write (s[i]);
readln;
end.

[ОДИНОЧЕСТВО В СЕТИ]

sir.andrey используйте тег code или # на панельке и кнопку "правка"