Описание программы

uses crt;
const n=12;
      l:array[1..n] of string[12] = ('Pеал Мадрид','Атлетико','Барселона','Атлетик',
                                     'Вильяреал','Севилья','Валенсия','Эспаньол',
                                     'Леванте','Гранада','Сельта','Малага');
type St=string[3];
function Schet(p,q:byte):St;{рисование счета}
var sp,sq:string;
begin
str(p,sp);str(q,sq);
Schet:=sp+':'+sq;
end;
function Itog(s:St):byte;{подсчет результатов}
begin
if s[1]>s[3] then Itog:=3{за выигрыш 3 очка}
else if s[1]=s[3] then Itog:=1
else if s[1]<s[3] then Itog:=0;
end;
function Revers(a:St):St;{переворот счета для второй команды}
var i:integer;
    a1:St;
begin
a1:='';
for i:=length(a) downto 1 do
a1:=a1+a[i];
Revers:=a1;
end;
{массив результатов 12*11, соответственно все другие}
var a:array[1..((n-1)*(n+1))div 2]of St;
    b:array[1..n,1..n-1]of St;
    o,z,p:array[1..n]of byte;{очки, забитые и пропущенные мячи}
    i,j,x,y,k,m:byte;
    l1:array[1..n] of string[12];
    t:St;
    s:string[12];
begin
textbackground(15);
clrscr;
randomize;
for i:=1 to ((n+1)*(n-1))div 2 do{набираем случайный счет для половины результатов}
   begin
    x:=random(6);
    y:=random(6);
    a[i]:=Schet(x,y);
   end;
for j:=1 to n-1 do{заполняем верхнюю часть таблицы}
for k:=j to n-1 do
  begin
    m:=k+(n-j-1)*(j-1);
    b[j,k]:=a[m];
  end;
for j:=2 to n do{нижнюю часть}
for k:=1 to j-1 do
b[j,k]:=Revers(b[k,j-1]);
{вычислим кол.очков}
for j:=1 to n do
 begin
  o[j]:=0;
  for k:=1 to n-1 do
  o[j]:=o[j]+Itog(b[j,k]);
 end;
{вычислим забитые и пропущенные мячи}
for i:=1 to n do
 begin
  z[i]:=0;
  p[i]:=0;
  for j:=1 to n-1 do
   begin
    z[i]:=z[i]+ord(b[i,j][1])-48;
    p[i]:=p[i]+ord(b[i,j][3])-48;
   end;
 end;
writeln('Исходная турнирная таблица':45);{рисуем саму таблицу}
gotoXY(13+n*4+2,whereY);
writeln('O ЗГ:ПГ');
for j:=1 to n do
 begin
  Textcolor(0);
  write(l[j]:12);
  for k:=1 to j-1 do
  if Itog(b[j,k])=0 then
   begin
    Textcolor(0);
    write(b[j,k]:4);
   end
  else if Itog(b[j,k])=1 then
   begin
    Textcolor(3);
    write(b[j,k]:4);
   end
  else if Itog(b[j,k])=3 then
   begin
    Textcolor(12);
    write(b[j,k]:4);
   end;
  Textcolor(0);
  write(' ',chr(178),chr(178),chr(178));
  for k:=j to n-1 do
  if Itog(b[j,k])=0 then
   begin
    Textcolor(0);
    write(b[j,k]:4);
   end
  else if Itog(b[j,k])=1 then
   begin
    Textcolor(3);
    write(b[j,k]:4);
   end
  else if Itog(b[j,k])=3 then
   begin
    Textcolor(12);
    write(b[j,k]:4);
   end;
  Textcolor(0);
  write(o[j]:3);
  write(z[j]:3,':',p[j]:2);
  writeln
 end;
write('Press Enter');
readln;
l1:=l;
{отсортируем маcсивы названий, результатов, очков, мячей}
for i:=1 to n-1 do
for j:=i+1 to n do
if (o[i]<o[j])or((o[i]=o[j])and(z[i]-p[i]<z[j]-p[j])) then
 begin
  m:=o[i];
  o[i]:=o[j];
  o[j]:=m;
  for k:=1 to n-1 do
   begin
    t:=b[i,k];
    b[i,k]:=b[j,k];
    b[j,k]:=t
   end;
  m:=z[i];
  z[i]:=z[j];
  z[j]:=m;
  m:=p[i];
  p[i]:=p[j];
  p[j]:=m;
  s:=l1[i];
  l1[i]:=l1[j];
  l1[j]:=s
 end;
writeln('Отсортированная турнирная таблица':45);
gotoXY(13+n*4+2,whereY);
writeln('O ЗГ:ПГ   Р  M');
for j:=1 to n do
 begin
  Textcolor(0);
  write(l1[j]:12);
  for k:=1 to j-1 do
  if Itog(b[j,k])=0 then
   begin
    Textcolor(0);
    write(b[j,k]:4);
   end
  else if Itog(b[j,k])=1 then
   begin
    Textcolor(3);
    write(b[j,k]:4);
   end
  else if Itog(b[j,k])=3 then
   begin
    Textcolor(12);
    write(b[j,k]:4);
   end;
  Textcolor(0);
  write(' ',chr(178),chr(178),chr(178));
  for k:=j to n-1 do
  if Itog(b[j,k])=0 then
   begin
    Textcolor(0);
    write(b[j,k]:4);
   end
  else if Itog(b[j,k])=1 then
   begin
    Textcolor(3);
    write(b[j,k]:4);
   end
  else if Itog(b[j,k])=3 then
   begin
    Textcolor(12);
    write(b[j,k]:4);
   end;
  case j of
  1:Textcolor(12);
  2:Textcolor(9);
  3:Textcolor(10);
  else Textcolor(0);
  end;
  write(o[j]:3);
  write(z[j]:3,':',p[j]:2,z[j]-p[j]:4,j:3);
  writeln
 end;
readln
end.