матрицы

uses crt;
{$R-}
type
  Tmas=^TTmas;{одна строка матрицы}
  TTmas=array[1..1] of integer;
  Tmatr=^TTmatr;{матрица-массив указателей на строки}
  TTmatr=array[1..1] of Tmas;
var
  a:Tmatr;
  n,i,j:integer;
  x:integer;{буфер для обмена при транспонировании}
begin
clrscr;
write('Размер матрицы n=');
readln(n);
getmem(a,sizeof(TTmas)*n*2);{выделяем память под указатели на строки}
{поскольку сортируем в двух циклах, нужно в 2 раза больше памяти}
for i:=1 to n do
getmem(a^[i],sizeof(integer)*n);{для каждой строки память для хранения данных}
writeln ('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a^[i]^[j]:=i;
    write(a^[i]^[j]:4);
   end;
  writeln;
 end;
write('Press Enter...');
readln;
for i:=2 to n do
for j:=1 to i-1 do
 begin
   x:=a^[i]^[j];
   a^[i]^[j]:=a^[j]^[i]; {транспонируем}
   a^[j]^[i]:=x;
  end;
writeln('Транспонированная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a^[i]^[j]:4);
  writeln;
 end;
write('Press Enter...');
for i:=1 to n do
freemem(a^[i],sizeof(integer)*n); {освобождаем память в обратном порядке, сначала удалим строки}
freemem(a,sizeof(TTmas)*n*2); {потом указатели на них}
readln
end.

uses crt;
{$R-}
type
  Tmas=^TTmas;
  TTmas=array[1..1] of integer;
  Tmatr=^TTmatr;
  TTmatr=array[1..1] of Tmas;
var
  a:Tmatr;
  n,i,j:integer;
  mx,mn:integer;
begin
clrscr;
randomize;
write('Размер матрицы n=');
readln(n);
getmem(a,sizeof(TTmas)*n*2);
for i:=1 to n do
getmem(a^[i],sizeof(integer)*n);
writeln ('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a^[i]^[j]:=random(100);
    write(a^[i]^[j]:4);
   end;
  writeln;
 end;
writeln;
mx:=a^[1]^[1];
mn:=mx;
for i:=1 to n do
for j:=1 to n do
 begin
   if a^[i]^[j]>mx then mx:=a^[i]^[j];
   if a^[i]^[j]<mn then mn:=a^[i]^[j];
 end;
writeln('Максимальный элемент=',mx);
writeln('Минимальный  элемент=',mn);
for i:=1 to n do
freemem(a^[i],sizeof(integer)*n); {освобождаем память в обратном порядке, сначала удалим строки}
freemem(a,sizeof(TTmas)*n*2); {потом указатели на них}
readln
end.