Шифрование

Ребята, помогите пожалуйста! Задается последовательность 1 и 0. Шифрование: когда встречается 1 дублировать ее три раза. Дешифровка: если подряд встречаются три единицы - заменять одной. Не могу понять, почему не работает шифрование правильно у меня и помогите дописать дешифрование!

uses crt;
var s:string;
a:array[1..20] of integer;
i,count:byte;

begin
clrscr;
writeln('Vvedite posledovatelnost:');
readln(s);
count:=0;
for i:=1 to length(s) do
begin
if s = '1' then
begin
a[count+1]:=1;
a[count+2]:=1;
a[count+3]:=1;
count:=i+3;
end
else
begin
a[count+1]:=0;
count:=count+1;
end;
end;

writeln('Zashifrovannaya posledovatelnost:');
writeln('count = ',count);
for i:=1 to count do
write(a);
writeln;
readln;
end.