VAR
 M,MT:ARRAY[1..10,1..10] of INTEGER;
 Ns,Nc,i,j:INTEGER;
BEGIN
 Write('Number of strings (<11) = ');
 ReadLn(Ns);
 Write('Number of columns (<11) = ');
 ReadLn(Nc);
 RANDOMIZE;
 For i:=1 to Ns do
  For j:=1 to Nc do
   M[i,j]:=Random(100)-50;
 For i:=1 to Nc do
  For j:=1 to Ns do
   MT[i,j]:=M[j,i];
 WriteLn;
 WriteLn('Initial matrix:');
 For i:=1 to Ns do
  begin
   For j:=1 to Nc do
    Write(M[i,j]:4);
   WriteLn;
  end;
 WriteLn;
 WriteLn('Transposed matrix:');
 For i:=1 to Nc do
  begin
   For j:=1 to Ns do
    Write(MT[i,j]:4);
   WriteLn;
  end;
 ReadLn;
END.