Сделать дешифровку

Var
s, ss: string;
i, k: integer;

begin
s := 'Зайку бросила хозяйка Под дождем остался зайка Со скамейки слезть не мог Весь до ниточки промок';
write('числа, которые необходимо зашифровать: ');
readln(ss);
write('Результат шифрования: ');
for i := 1 to length(ss) do
begin
k := pos(ss[i], s);
s[k]:='0';
write(k); write(' ');
end;
end.