Удаление 'abcd' из последовательности, только литерный тип.

[amm]

Сабж. Дано целое число n, символы s1,s2,..,sn. Удалить из последовательности все группы букв, образующих запись abcd, т.е. получить новую последовательность, не содержащую этих групп литер.
Фишка в том, что задачу надо решить без использования string и массивов. Буду очень благодарен всем, кто откликнется

var k,n: integer;
a,b,c,d,s: char;
begin
a:='a';
b:='b';
c:='c';
d:='d';
Writeln ('введите целое число n');
readln(n);
k:=0;
Writeln ('введите последовательность символов');
Repeat
read(s);

??? (if s<>....)

write(s);
k:=k+1;
until n=k;
writeln
end.

ps. Pascal ABC

[amm]

up. Неужели никто не знает?