Список упорядоченных пар

Program Mnojestva;
  uses crt;
 Type
  Simvol = set of 'a'..'z';
 Var
  A:simvol;
  i:integer;
  x:char;
  procedure vvod(name_set:string; var num_elem:integer; var one_set:simvol);
  var x:char;
  begin
  clrscr;
          writeln('vvedite ',num_elem,' element mnojestva ',name_set);
          readln(x);
          if (x in one_set)
          then begin
                writeln(x,' uje soderjitsya v mnojestve',name_set);
          end
          else begin
                writeln(x,' pomeschon v mnojestvo',name_set);
                one_set:=one_set+[x];
                num_elem:=num_elem+1;
                 end;
                 end;
              procedure vyvod(name_set:string;var one_set:simvol);
   var x:char;
   begin
                  writeln;
                  writeln('     rezultat  mnojestvo ',name_set);
                  writeln;
                for x:='a' to 'z' do if x in one_set then write(x,' ');
 
   end;
 
 
   begin
                A:=[];
 
                i:=1;
                repeat
                        vvod('A',i,A);
                until i>5;
                clrscr;
               writeln;
                  writeln;
                  writeln('     mnojestvo A: ');
                  writeln;
                for x:='A' to 'z' do if x in A then write(x,' ');
   end.

Program Mnojestva;
  uses crt;
 Type
  Simvol = set of 'a'..'z';
 Var
  mas:array [1..20,1..20] of char;
  A:simvol;
  k,n,i,j,r:integer;
  x,key:char;
  procedure vvod(name_set:string; var num_elem:integer; var one_set:simvol);
  var x:char;
  begin
          writeln('vvedite ',num_elem,' element mnojestva ',name_set);
          readln(x);
          if (x in one_set)
          then begin
                writeln(x,' uje soderjitsya v mnojestve',name_set);
          end
          else begin
                writeln(x,' pomeschon v mnojestvo',name_set);
                one_set:=one_set+[x];
                num_elem:=num_elem+1;
                 end;
                 end;
   procedure vyvod(name_set:string;var one_set:simvol);
   var x:char;
   begin
 
                  writeln('     mnojestvo A: ');
                  writeln;
                for x:='A' to 'z' do if x in A then write(x,' ');
 
 
 
   end;
   procedure vvodpary;
   begin
    clrscr;
    write(' koli4estvo par ');
    readln(r);
    for i:=1 to r do
     for j:=1 to r do begin
      write('A[',i,',',j,'] =');
      readln(mas[i,j]);
     end;
    writeln(' ishodnaya matrica :  '); writeln;
     for i:=1 to r do
     begin
      for j:=1 to r do write(mas[i,j]);
      writeln;
      end;
      end;
   begin
   writeln(' vvedite koli4estvo elementov ');
   readln(n);
 
                A:=[];
                k:=1;
                repeat
                        vvod('A',k,A);
                until k>n;
                k:=1;
 
                clrscr;
                vyvod('A',A);
 
                vvodpary;
                readln;
                repeat
                         clrscr;
                           writeln('=======================');
                           writeln('  1:   refleksivnosty');
                           writeln('  2:   simmetri4nosty');
                           writeln('  3:   antisimmetri4nosty');
                           writeln('  4:   tranzitivnosty');
                           writeln('esk:   vyhod');
                           writeln('=======================');
                           writeln('->');
 
                           repeat until keyPressed;
                               key:=readkey;
                               writeln('key= ',key);
 
                         {  case key of
                           '1':begin  ref(); vyvod();end;
                           '2':begin  sim();  vyvod();end;
                           '3':begin  antisim();      vyvod();end;
                           '4':begin  tranz();     vyvod();end;
 
                           end; }
                               if key <> #27 then readln;
                                 until key=#27;
     end.