Задание на строку

[makc101]

Дана строка. Удалить из неё все утроенные символы (эээ, ккк, nnn? и т.д.). Стандартные функции не использовать.Спасибо заранее.

[as345]

дава наработки, а вобще задание легкое

[Nitriyc]

вот я пытался что-то делать:
program project1;
FUNCTION NEXTWORD (CONST S:STRING;VAR I:BYTE):string;
VAR N:BYTE;
WORD: string;
BEGIN
WORD:='';
WHILE (I<=N) AND (ORD(S[I])>=33) DO
BEGIN
WORD:=WORD+S[I];
I:=I+1;
end;
NEXTWORD:= WORD;
END;
VAR S, ST:STRING;
I, N:BYTE;
BEGIN
READLN (S);
N:= ORD(S[0]);
ST:='';
I:=1;
WHILE I<=N DO
BEGIN
IF ORD(S[I])<33 THEN
I:=I+1 ELSE