Корявая работа Turbo Pascal с элементами псевдографики

[DSBM]

Привет, форумчане!
Я конечно не специалист.. Но, по-моему, моя прога работает неправильно!
При первичном запуске Ёлочка запускается нормально, более того, она даже горит так, как я ей указываю!
При вторичном-же получаетя какое-то г*вно.
В общем, скрины и текст программы ниже.

{made by SiD}
program s;
uses crt;
begin
textcolor(green);
writeln('                             ');
writeln('                            ЫЫЫ');
writeln('                            ЫЫЫ');
writeln('                           ЫЫЫЫЫ');
writeln('                          ЫЫЫЫЫЫЫ');
writeln('                         ЫЫЫЫЫЫЫЫЫ');
writeln('                        ЫЫЫЫЫЫЫЫЫЫЫ');
writeln('                       ЫЫЫЫЫЫЫЫЫЫЫЫЫ');
writeln('                      ЫЫ  ЫЫЫЫЫЫЫ  ЫЫ');
writeln('                         ЫЫЫЫЫЫЫЫЫ');
writeln('                       ЫЫЫЫЫЫЫЫЫЫЫЫЫ');
writeln('                     ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ');
writeln('                   ЫЫЫЫ  ЫЫЫЫЫЫЫЫЫ  ЫЫЫЫ');
writeln('                        ЫЫЫЫЫЫЫЫЫЫЫ');
writeln('                       ЫЫЫЫЫЫЫЫЫЫЫЫЫ');
writeln('                      ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ');
write('                    ЫЫ ');
textcolor(white);
write('‘ Ќ®ўл¬ ѓ®¤®¬!');
textcolor(green);
writeln('ЫЫ');
writeln('                  ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ');
writeln('                ЫЫЫЫЫЫ    ЫЫЫЫЫЫЫЫЫ  ЫЫЫЫЫЫ');
writeln('                        ЫЫЫЫЫЫЫЫЫЫЫ');
writeln('                     ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ');
writeln('                   ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ');
write('                 ЫЫЫЫЫЫЫЫ');
textcolor(brown);
write('  ЫЫЫЫЫ');
textcolor(green);
writeln('  ЫЫЫЫЫЫЫЫ');
textcolor(brown);
writeln('                           ЫЫЫЫЫ');
{Љ®*Ґж с«ЄЁ}
repeat
    gotoXY(30,1);
    TextColor(yellow);
    write('Ы');
    delay(100);
    gotoXY(30,1);
    TextColor(red);
    write('Ы');
    delay(100);
    {‡ўҐ§¤*}
    gotoXY(23,10);
    TextColor(yellow);
    write('Ы');
    delay(100);
    gotoXY(23,10);
    TextColor(red);
    write('Ы');
    delay(100);
    {”®**ам 1}
    gotoXY(40,14);
    TextColor(yellow);
    write('Ы');
    delay(100);
    gotoXY(40,14);
    TextColor(red);
    write('Ы');
    delay(100);
    {”®**ам 2}
    gotoXY(17,20);
    TextColor(yellow);
    write('Ы');
    delay(100);
    gotoXY(17,20);
    TextColor(red);
    write('Ы');
    delay(100);
    {”®**ам 3}
    gotoXY(42,23);
    TextColor(yellow);
    write('Ы');
    delay(100);
    gotoXY(42,23);
    TextColor(red);
    write('Ы');
    delay(100);
    {”®**ам 4}
    gotoXY(18,23);
    TextColor(yellow);
    write('Ы');
    delay(100);
    gotoXY(18,23);
    TextColor(red);
    write('Ы');
    delay(100);
    {”®**ам 5}
    gotoXY(43,20);
    TextColor(yellow);
    write('Ы');
    delay(100);
    gotoXY(43,20);
    TextColor(red);
    write('Ы');
    delay(100);
    {”®**ам 6}
    gotoXY(20,14);
    TextColor(yellow);
    write('Ы');
    delay(100);
    gotoXY(20,14);
    TextColor(red);
    write('Ы');
    delay(100);
    {”®**ам 7}
    gotoXY(37,10);
    TextColor(yellow);
    write('Ы');
    delay(100);
    gotoXY(37,10);
    TextColor(red);
    write('Ы');
    delay(100);
    {”®**ам 8}
    until keypressed;
end.

Вместо "Ы" стоит элемент псевдографики "█".
Помогите с проблемой?
Заранее благодарю.

[Poma][a]

Я быстренько глянул на код.. никакого криминала.. посему предлагаю решить проблему так : перейти на FreePascal

[DSBM]

предлагаю решить проблему так : перейти на FreePascal

Благодарю. А ссылочкой на рабочий Free Pascal не угостите?)

[Poma][a]

Пожалуйста тыц

[DSBM]

Сообщение от Poma][a

тыц

Премного благодарен.)