Транспонирование матрицы

var
n,k:integer;
  Form1: TForm1;
    type mas=array of array of integer; var c:mas;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
var s:string; i,j:integer; fil:textfile;
begin
memo1.clear;
SetLength (c,10,10);
AssignFile(fil,'D:\Delphi\Lab1\text.txt');
Reset(fil);
k:=-1;
  repeat
  k:=k+1;
  n:=-1;
    repeat
    n:=n+1;
    Read(fil,c[n,k]);
    until Eoln(fil);
  readln(fil);
  until EoF(fil);
  for j:= 0 to n do
  begin
    s:='';
    for i:= 0 to k do
        s:=s+IntToStr (c[i,j])+' ';
    Memo1.Lines.Add(s);
  end;
 
  CloseFile(fil);
end;
 
 
end.

var
n,k:integer;
  Form1: TForm1;
    type mas=array of array of integer; var c:mas;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
//загрузка матрицы
var s:string; i,j:integer; fil:textfile;
begin
memo1.clear;
SetLength (c,10,10);
AssignFile(fil,'C:\Users\1\Desktop\HELP\Lab.txt');
Reset(fil);
k:=-1;
  repeat
  k:=k+1;
  n:=-1;
    repeat
    n:=n+1;
    Read(fil,c[n,k]);
    until Eoln(fil);
  readln(fil);
  until EoF(fil);
  for j:= 0 to n do
  begin
    s:='';
    for i:= 0 to k do
        s:=s+IntToStr(c[i,j])+' ';
    Memo1.Lines.Add(s);
  end;
 
  CloseFile(fil);
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
//транспонирование матрицы
var b:mas;
i,j:Integer;
s:string;
begin
 memo2.clear;
 b:=c;
  for j:=0 to n do
  begin
    s:='';
 for i:=0 to k do
      begin
    b[i,j]:=c[j,i];
    s:=s+IntToStr(b[i,j])+' ';
    end;
     Memo2.Lines.Add(s);
  end;
end;
 
end.