решить задания по информатике

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
uses GraphABC;
begin
  Pen.Width:=3;
  // 0
  DrawRectangle(20,20,70,120);
  // 1
  Line(90,70,140,20);
  Line(140,20,140,120);
  // 2
  MoveTo(160,20);
  LineTo(210,20);
  LineTo(210,70);
  LineTo(160,120);
  LineTo(210,120);
  // 3
  MoveTo(230,20);
  LineTo(280,20);
  LineTo(230,70);
  LineTo(280,70);
  LineTo(230,120);
  // 4
  MoveTo(300,20);
  LineTo(300,70);
  LineTo(350,70);
  Line(350,20,350,120);
  // 5
  MoveTo(70,140);
  LineTo(20,140);
  LineTo(20,190);
  LineTo(70,190);
  LineTo(70,240);
  LineTo(20,240);
  // 6
  Line(90,190,140,140);
  DrawRectangle(90,190,140,240);
  // 7
  MoveTo(160,140);
  LineTo(210,140);
  LineTo(160,190);
  LineTo(160,240);
  // 8
  DrawRectangle(230,140,280,240);
  Line(230,190,280,190);
  // 9
  DrawRectangle(300,140,350,190);
  Line(350,190,300,240)
end.

Const n=3;
var a:array[1..n,1..n] of integer;
i,j,c:integer;
begin
Randomize;
writeln('Исходная матрица:');
for i:= 1 to n do
  begin
 for j:=1 to n do
  begin
  a[i,j]:=random(10);
  write(a[i,j]:4);
  end;
 writeln;
 end;
for i:=1 to n do
  for j:=i+1 to n do
 begin c:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=c; end;
writeln('Транспонированная матрица:');
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходная матрица:
   1   4   4
   8   3   9
   8   2   1
Транспонированная матрица:
   1   8   8
   4   3   2 
   4   9   1