ClrScr-не пишет на выделеном участке

[BaronVik]

Доброго вечера уважаемые программисты. У меня возникла проблема с закрашиванием экрана. В общем вот кусочек программы,ниже опишу в чём загвоздка.

Procedure Clear2Win;
Begin
   textcolor(14);   {текст жёлтый}
   textbackground(0); {фон чёрный}
   window(16,21,77,21); {задать окно с координатами}
   clrscr;                      {очищаем его}
   window(16,23,77,23);
   clrscr;
end;
{-------------------------------------------------------------------------}
procedure Odin;
Begin
   textcolor(14); {текст жёлтый}
   textbackground(0); {фон чёрный}
   New(Na4_list);
   Gotoxy(16,21); {ставим курсор на эти координаты}
   Writeln('Vvedite NAME statii'); {пишем}
   Gotoxy(16,23);  {ну это по аналогии,как выше}
   readln(Na4_list^.NameSt);{считываем}
   Clear2Win;
   Gotoxy(16,21);
   Writeln('Vvedite FIO avtora');
   Gotoxy(16,23);
   readln(Na4_list^.FIO);
   Clear2Win;
   Gotoxy(16,21);
   Writeln('Vvedite Neme Zyrnala') ...

Вот в чём проблема,я очищаю строку(закрашиваю её кусок чёрным цветом),а потом на нём пишу жёлтыми буквами. Но при работе программы на закрашенном участке ничего не пишется. Если процедуру очистки убрать то всё прекрасно прописыватся,и всё видно,но опять же будет "пачкаться" экран(Скажем напишем МОЛОКО,потом напишем сного на этой позиции например комп то на экране получится компКО) постарался объяснить как можно подробнее,подскажите что переправить?

[Serge_Bliznykov]

попробуйте так:

Procedure Clear2Win;
Begin
   textcolor(14);   {текст жёлтый}
   textbackground(0); {фон чёрный}
   window(16,21,77,23); {задать окно с координатами}
   clrscr;                      {очищаем его}
   window(1,1,80,25);
end;

p.s. я бы лично "забивал" строку просто пробелами (GotoXY - а потом Write(Длинная строка из пробелов...)