Ошибка в коде программы Delphi

[Начинающий програм]

Эту задачу нужно решить только с помощью массива. Подскажите пожалуйста, где моя ошибка. Заранее благодарен!

Условие.
Пусть дано целое число n, символы S1,S2,...,Sn. Преобразуйте последовательность S1,S2,...,Sn, удалив каждый символ звездочки и повторив каждый символ, отличный от звездочки.

const
 n=20;
var
 a:array [1..n] of char;
 b:array [1..n*2] of char;
 i,j,k:integer;
begin
 for i:=1 to n do readln(a[i]);
 j:=1;
 k:=0;
 for i:=1 to n do
 if a[i]<>'*' then
 begin
  b[j]:=a[i];
  b[j+1]:=a[i];
  j:=j+2;
  k:=k+2;
 end;
 for j:=1 to k do
 writeln(b[j],' ');
 readln;
end.

[Arigato]

Может проще вводить строкой, а не посимвольно?

Ну а по приведенному коду, то в чем там ошибка? Вроде как все верно.

[Начинающий програм]

Если в коде нет ошибок,тогда почему не выполняется условие задачи то есть
для проверки программы я ввожу например
5*64*25*7
программа должна мне выдать вот такой ответ
556644225577

Может кто знает в чем проблема?

[Arigato]

А как вы вводите, одной строкой? У вас же по коду надо после каждого символа Enter нажимать и так 20 раз. И ответ в столбик будет.

[Начинающий програм]

а я в строчку вводил. Ну я лопухнулся Спасибо Вам что на правильный путь меня наставили!

[Arigato]

Т.е. это не ваше решение задачи?
Я потому и спросил на счет строк, что было бы логичнее тут строки использовать.