Написать программу транспонирования данной целочисленной матрицы размером 5х5 ПАСКАЛЬ

program transp1;
var a:array[1..5,1..5]of integer; i,j,k:integer;
begin
for i:=1 to 5 do for j:=1 to 5 do begin write('a[',i,',',j,']='); read(a[i,j]) end; writeln;
for i:=1 to 5 do begin for j:=1 to 5 do write(a[i,j]:6); writeln end;
for i:=1 to 5 do for j:=1 to i do begin k:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=k end; writeln;
for i:=1 to 5 do begin for j:=1 to 5 do write(a[i,j]:6); writeln end
end.