Составить программу для вывода на экран окна и заполнить его текстом с помощью Readkey. Окно разбить на вертикальные столбцы шириной в один символ. Столбцы закрасить периодически повторяющимися цветами фона с номерами от 1 до 8. При нажатии клавиши «Ввод» цвет фона i-го столбца меняется на цвет фона i+1 столбца по замкнутому кольцу — Pascal(Паскаль)

Примерно так.
uses crt;
var c:char;
    x,y,w,h,i,j,x1,y1,k:byte;
begin
x:=36;
y:=7;
w:=10;
h:=10;
textbackground(0);
textcolor(15);
clrscr;
writeln('1. Заполните окно текстом. Окончание ввода Enter.');
writeln('2. Нажптием Enter меняйте цвет окон.');
writeln('3. Выход из программы Esc');
window(x,y,x+w,y+h);
textbackground(15);
textcolor(12);
clrscr;
repeat
  c:=readkey;
  write(c)
until c=#13;
clrscr;
write('Press Enter');
k:=0;
repeat
c:=readkey;
if c=#13 then
   begin
     k:=k+1;
     for i:=1 to w+1 do
      begin
       x1:=x+i-1;
       window(x1,y,x1,y+h);
       textbackground(i-k);
       clrscr;
      end;
    end;
until c=#27;
end.