Перевести ориентированный граф, представленный одним из способов, в другой способ представления

    Program Graf;
 Var N, I, J, Min,Ind, Vsp,m,k : Integer;
 f, f1: Text;
  A : Array [1..15, 1..15] Of Integer;
matpreber:array[1..50,1..20] of integer;
  procedure matreb;
begin
  k:=0;
  for i:=1 to n do
    for j:=1 to m do
       if a[i,j]<>0 then begin
                           k:=k+1;
                           matpreber[1,k]:=i;
                           matpreber[2,k]:=j;
                           matpreber[3,k]:=a[i,j];
                         end;
end;
procedure print;
begin
    for i:=1 to 3 do
      begin
        for j:=1 to k do
           write(f1,'перечень ребер',matpreber[i,j],' ');
        writeln;
      end;
end;
 procedure Rd;
 Begin
  READLN(f,N,m);
FOR I := 1 TO N DO Begin
FOR J := 1 TO m DO READ(f,A[I, J]);
READLN;
End;
 
        end;
      Begin
 
assign(f,'incid.txt');
 reset(f);
         assign(f1,'cmeg.txt');
 append(f1);
while not (EOF(F)) do begin
Rd;
  matreb;
end;
 
   print;
  readln;
     close(f);
 close(f1);
 WriteLn;
 End.