написать матрицу

Program Matrix;
Uses Crt;
Type Mn_Ver = set of 1..25;                             
Var n : Byte;                                                      
    NR,KR : Array [1..100] of byte;                    
    B : Array[1..50,1..50] of byte;                        
    Ver : Mn_Ver;                                                 
    i,j,z,l : Byte;
 
Begin
 {Ввод элементов списка ребер}
{***************************************************************}
 ClrScr;
 WriteLN('Введите количество элементов списка ребер (не более 50): ');
 ReadLN(z);
 For i := 1 To z Do
   Begin
   Write('Введите начало ребра: ');
   ReadLN(NR[i]);
   Write('Введите конец ребра: ');
   ReadLN(KR[i]);
   End;
{***************************************************************}
 {Печать списка ребер}
{***************************************************************}
 WriteLN('Список ребер:');
 Write('NR = (');
 For i := 1 To z Do
   Write(NR[i]:3);
 WriteLN(')');
 Write('KR = (');
 For i := 1 To z Do
   Write(KR[i]:3);
 WriteLN(')');
 {***************************************************************}
Ver := [];                                                                         {Множество вершин пустое}
 For i := 1 to z Do                                                           {Формирование}
    Begin                                                                           {множества}
    If not(NR[i] in Ver) Then Include(Ver,NR[i]);                                      {вершин}
    If not(KR[i] in Ver) Then Include(Ver,KR[i]);
    End;
 n := 0;                                                                               {подсчет}
 For i := 1 To 25 Do                                                          {количества}
   If i in Ver Then Inc(n)                                                    {вершин}
               Else Break;
 Write('В графе ',n,' вершин(ы).');
 Writeln(' Нажмите любую клавишу для продолжения*...');
 ReadKey;
 
 
 
 
End.