В первой части создать окно и вывести все символы от 0 до 255 с указанием номеров - Turbo Pascal

Формулировка задачи:

Разделить экран по горизонтали на две части. В первой части создать окно и вывести все символы от 0 до 255 с указанием номеров, во втором окне в двух строчках вывести два символа, бегающих в противоположные стороны.

                    Листинг программы
                
 
                        
                          
                    
uses crt;
var 
i,j,dec:integer;
begin
{create window}
clrscr;
window(1,1,80,34);
{output 255 chars to window}
textcolor(15);
for i:=0 to 32 do
begin
dec:=i;
for j:=1 to 8 do
begin
if (dec<7) or (dec>=14) then
write(dec:4,'-',' ',chr(dec):1)
else
write(dec:4,'- ');
dec:=dec+32;
end;
writeln
end;
{divide screen}
for i:=1 to 80 do
begin
gotoXY(i,34);
write(chr(177));
end;
window(1,35,80,36);
repeat
for i:=1 to 80 do
begin
clrscr;
textcolor(15);
gotoXY(i,1);
write(chr(1));
gotoXY(81-i,2);
write(chr(2));
delay(5000);
end;
until keypressed;
end.

Решение задачи: «В первой части создать окно и вывести все символы от 0 до 255 с указанием номеров»

Листинг программы

uses Crt;
var
  i,j,k,dx:integer;
begin
  clrscr;
  window(1,1,80,25);
  textbackground(LightBlue);
  clrscr;
  window(1,1,80,23);
  k:=-1;j:=0;
  repeat
      k:=k+1;j:=j+1;
      textcolor(LightGreen);
      write(k:3,':',chr(k),' ');
      if j mod 13=0 then writeln;
  until k=255;
  window(1,24,80,25);
  textbackground(Green);
  clrscr;
  i:=40;j:=40;dx:=1;
  repeat
    gotoxy(i,1);textcolor(Yellow);write('*');
    gotoxy(j,2);textcolor(White);write('+');
    textcolor(Green);
    delay(100);
    gotoxy(i,1);textcolor(Yellow);write(' ');
    gotoxy(j,2);textcolor(White);write(' ');
    i:=i+dx;j:=j-dx;
    if i=1 then dx:=1 else if i=79 then dx:=-1;
  until keypressed;
end.

Объяснение кода листинга программы

Создается окно размером 80x25.
Выбирается фоновый цвет текста - светло-синий.
Очищается экран.
Создается окно размером 80x23.
Устанавливается цвет текста - светло-зеленый.
Выводится число k (от 0 до 255) с номером k.
Если номер j (также от 0 до 13) делится на 13 без остатка, выводится строка.
Цикл повторяется, пока k не станет равным 255.
Очищается экран.
Устанавливается цвет фона - зеленый.
Устанавливается координаты i и j для следующего цикла.
Запускается цикл, в котором:
- выводится символ * с номером i;
- выводится символ + с номером j;
- цвет текста меняется на зеленый;
- задержка в 100 мс;
- выводится символ с номером i;
- выводится символ с номером j;
- координаты i и j сдвигаются так, чтобы i стал на единицу больше, а j на единицу меньше;
- если i стал равным 1, dx устанавливается в 1, иначе если i стал равным 79, dx устанавливается в -1.
Пока не будет нажата клавиша, цикл продолжается.