Перевод матрицы смежности в список ребер

program msmtospr;   {* описание переменных}
 
uses crt;
 
const n0=10;
 
type sr=^elr;
 
elr=record
 
i,j:integer;
 
next:sr;
 
end;
 
var spr,qr,rr:sr; i,j,n:integer;
 
a:array[1..n0,1..n0] of byte;
 
 
procedure sozdmsm;                {* процедура создания матрицы смежности }
begin
 
randomize;
 
for i:=1 to n do
 
begin
 
a[i,i]:=0;
 
for j:=i+1 to n do
 
begin
 
a[i,j]:=random (2); a[j,i]:= a[i,j];
 
end;
 
end;
end;
 
procedure prmsm;                 {* процедура вывода матрицы смежности }
begin
For i:=1 To n do
begin
For j:=1 to n do
Write (a[i,j], '');
WriteLn;
end;
end;
 
procedure msminspr;       {*процедура  перевода матрицы смежности в список ребер}
 
begin
 
new(spr); qr:=spr;
 
for i:=1 to n do
 
for j:=i+1 to n do
 
begin
 
if a[i,j]=1
 
then
 
begin
 
new(rr); rr^.i:=i; rr^.j:=j;
 
rr^.next:=nil; qr^.next:=rr; qr:=rr;
 
end;
 
end;
end;
 
 
procedure prspr;             {* процедура вывода списка ребер }
 
begin
 
qr:=spr^.next;
 
while qr<>nil do
 
begin
 
write('(',qr^.i, ','); write(qr^.j, ')');
 
qr:=qr^.next;
 
end;
end;
 
 
begin                                                 {* тело программы }
clrscr; randomize;
 
write('n(n<= n0)=');
readln  Нет;
 
sozdmsm; prmsm;
 
msminspr;
 
writeln;
prspr;
 
readln;
 
end.