Transpose MATRIK

var
a:array [1..10,1..10] of integer;
b,k,i,j,l,m:integer;
begin
writeln('masukkan jumlah baris:');
read (b);
writeln('masukkan jumlah kolom:');
read(k);

for i:= 1 to b do begin
 for j:= 1 to k do begin
        read (a[i,j]);
         if (j=k) then
                writeln;
         end;
        end;


for m:= 1 to b do begin
 for l:= 1 to k do begin
        write (a[l,m],' ');
        if (l=k) then
        writeln;
        end;
        end;
writeln('=========Terimakasih telah Menggunakan Aplikasi ini===========');
writeln( '--------------------by : Sugeng Wahyudi---------------------');
readln;
end.