Транспонировать матрицу матрица NXM, где N>1, M>1 — Pascal(Паскаль)

program matr;
uses
  crt;
var
  a:array [1..100,1..100] of integer;
  i,j,k,count,str,sto:integer;
begin
  clrscr;
  repeat
    writeln('vvedite kolichestvo strok:');
    readln(str);
    if str=0 then
      exit;
    if (str>100) or (str<1) then
      writeln('neverno zadano chislo strok! Poprobyite eche raz ili vvedite 0 dlia vixoda...');
  until
    (str>=1)and(str<=100);
  repeat
    writeln('vvedite kolichestvo stolbchov:');
    readln(sto);
    if sto=0 then
      exit;
    if (sto>100) or (sto<1) then
      writeln('neverno zadano chislo stolbchov! Poprobyite eche raz ili vvedite 0 dlia vixoda...');
  until
    (sto>=1)and(sto<=100);
 
  writeln('icxodnaia matricha:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
      read(a[i,j]);
    writeln
  end;
 
  writeln('transponiryem matrichy:');
  for i:=1 to sto do
  begin
    for j:=1 to str do
      write(a[j,i]:2,' ');
    writeln;
  end;
readkey;
end.