Решение задачи Matrix 96

program Matrix96;
type
  matrix = array [1..10,1..10] of integer;
 
var
  a:matrix;
  M, i, j:Integer;
 
procedure Swap(var X,Y:Integer);
begin
 if x<>y then
  begin
   X:=X+Y;
   Y:=X-Y;
   X:=X-Y;
  end;
end;
 
begin
 
 
 Write('M: ');
 Readln(M);
 for  j:=1 to M do
  begin
   writeln(j,': ');
   for i:=1 to M do
    begin
     Write(i,' : ');
     Read(a[i,j]);
    end;
  end;
//выводится матрица
 for  j:=1 to M do
  begin
   for i:=1 to M do
    begin
     Write(' : ',a[i,j]);
    end;
   Writeln(' : ');
  end;
  Writeln('--------');
 //отражаем относительно главной диагонали
 for i:=2 to M do
   for j:=1 to i do
     Swap(a[i,j],a[j,i]);
 
 
//отображаем изменённую матрицу
 for  j:=1 to M do
  begin
   for i:=1 to M do
    begin
     Write(' : ',a[i,j]);
    end;
   Writeln(' : ');
  end;
end.