Символьный массив, Помогите_)) Опции

[Cheburashka]

В общем я столкнулся с такой проблемой что у меня массив символов не заполняется полностью!
Вот что я делаю:

  var N,M,i,j,k:longint;
      a:array [1..101,1..101] of char;
begin
  Readln (N,M);
  For i:=1 to N do
    For j:=1 to M do
      Read (a[i,j]);
...
end.

В чём здесь ошибка?