用PASCAL做一个矩阵！

程序如下,不过第三条没怎么明白,是用相应行中的各个元素去÷对角线上的元素,还是用对角线上的元素÷相应行中的各个元素
我两个都写了,你挑那个对的来用吧
这个是用相应行中的各个元素去÷对角线上的元素:
var
a,b:array[1..5,1..5] of real;
c,d:integer;
k:real;
begin
for c:=1 to 5 do begin
for d:=1 to 5 do read(a[d,c]);
readln;
end;
b:=a;
writeln('(1)');
for c:=1 to 5 do begin
for d:=1 to 5 do write(a[d,c]:0:0,' ');
writeln;
end;
writeln('(2)');
for c:=1 to 5 do begin
k:=a[c,2];a[c,2]:=a[c,5];a[c,5]:=k;
end;
for c:=1 to 5 do begin
for d:=1 to 5 do write(a[d,c]:0:0,' ');
writeln;
end;
writeln('(3)');
for c:=1 to 5 do begin
k:=b[c,c];
for d:=1 to 5 do b[d,c]:=b[d,c]/k;
end;
for c:=1 to 5 do begin
for d:=1 to 5 do write(b[d,c]:0:2,' ');
writeln;
end;
end.
这个是用对角线上的元素÷相应行中的各个元素:
var
a,b:array[1..5,1..5] of real;
c,d:integer;
k:real;
begin