Помогите с программированием!! Pascal

Почему если я ввожу 1 2 3 4 5 то результат выводится 1 2 3, т.е. только три первых элемента вот текст:
const
HB=5;
var
a:array [1..HB] of char;
min,i: integer;
begin
writeln('enter');
for i:=1 to HB-1 do
read(a);
readln(a[HB]);
for i:=1 to 5 do
write(a);
readln;
end.