Небольшой кроссворд на crt

[Extreme]

Пытаюсь написать не большой кроссворд(на библиотеке crt), но тут столкнулся с такой проблемой. Мне необходимо заполнить 4 блока, но заполняются только 1й и 4й. Объясните пожалуйста в чем ошибка, буду очень благодарен!

[puporev]

Попробуй так.

procedure windows;
    begin
         gotoXY(x,y);
         write(chr(201));
         for i:=1 to 4 do
         write(chr(205));
         write(chr(187));
         gotoXY(x,y+1); writeln(chr(186));
         gotoXY(x,y+2); writeln(chr(200));
         gotoXY(x+1,y+2);
         for i:=1 to 4 do
         write(chr(205));
         write(chr(188));
         gotoXY(x+5,y+1); write(chr(186));
         gotoXY(x+2,y+1);
         readln(k[c]); //здесь readln, а не read
    end;

[Extreme]

Сообщение от puporev

Попробуй так.

procedure windows;
    begin
         gotoXY(x,y);
         write(chr(201));
         for i:=1 to 4 do
         write(chr(205));
         write(chr(187));
         gotoXY(x,y+1); writeln(chr(186));
         gotoXY(x,y+2); writeln(chr(200));
         gotoXY(x+1,y+2);
         for i:=1 to 4 do
         write(chr(205));
         write(chr(188));
         gotoXY(x+5,y+1); write(chr(186));
         gotoXY(x+2,y+1);
         readln(k[c]); //здесь readln, а не read
    end;

Чтение с новой строки.... Благодарю!!!