Построить таблицу и решить задачу. В турнире по шахматам участвовало шесть учеников с 6 по 11 классы: Катя, Петя, Саша, Андрей, Наташа, Руслан. Все ученики были из разных классов. Определите кто в каком классе учится, если известно, что: · в первом туре Саша выиграл у шестиклассника, Катя у семиклассника, а Наташа у девятиклассника; · во втором туре Петя выиграл у семиклассника; · в третьем и четвёртом турах девятиклассник из-за болезни не участвовал в турнире, поэтому свободными от игры оказались Петя и Руслан; · в четвёртом туре Катя выиграла у одиннадцатиклассника. Победителями турнира оказались Саша и Катя. Хуже всех выступил десятиклассник.

Может быть, так:
uses graphABC;
Begin
setfontcolor(clRed);
writeln('Белеет парус одинокой');
setfontcolor(clBlue);
writeln('В тумане моря голубом!..');
setfontcolor(clDarkOrchid);
writeln('Что ищет он в стране далекой?');
setfontcolor(clDeepSkyBlue);
writeln('Что кинул он в краю родном?..');
setfontcolor(clDeepPink);
writeln('Играют волны - ветер свищет,');
setfontcolor(clMagenta);
writeln('И мачта гнётся и скрыпит...');
setfontcolor(clDarkGreen);
writeln('Увы! он счастия не ищет');
setfontcolor(clLime);
writeln('И не от счастия бежит!');
setfontcolor(clBrown);
writeln('Под ним струя светлей лазури,');
setfontcolor(clIndigo);
writeln('Над ним луч солнца золотой...')
End.

Program aaa;                 
var A,B: array[1..4,1..4] of integer; i,j,x: byte;

begin  
  randomize;  //запускаем генератор случайных чисел
  
  // формируем и одновременно выводим матрицу  
  writeln ('Исходная матрица:');
  for i:=1 to 4 do
    begin
    for j:=1 to 4 do
      begin
      A[i,j]:=random(-10,10);  //рандомное значение ячейки матрицы
      write(A[i,j]:4)  //вывод ячейки матрицы
      end;
    writeln;
    end;
  
  //поворачиваем матрицу на 90 градусов
  for j:=1 to 4 do
    begin
    x:=0;
    for i:=4 downto 1 do
      begin
      x:=x+1;
      B[j,x]:=A[i,j]
      end
    end;
  
  // выводим итоговую матрицу
  writeln;
  writeln ('Матрица, повернутая на 90 градусов:');
  for i:=1 to 4 do 
    begin
    for j:=1 to 4 do
      write(B[i,j]:4);
    writeln
    end
  
end.



Результат работы программы: 

Исходная матрица:
  -7  -8   3   4
  10  -5  -1  -8
   3  -9  -7  -1
  -2   6  -8  -9

Матрица, повернутая на 90 градусов:
  -2   3  10  -7
   6  -9  -5  -8
  -8  -7  -1   3
  -9  -1  -8   4