Pascal/Turbo Pascal - Como unir 2 digitos en pascal?

Program ej10AP4;

var numex, numx, numA, numB, n, m:integer;

begin

  writeln('Ingrese dos numeros');readln(n,m);

  numx:=0;

  for numA:=1 to 9

  do for numB:=0 to 9

     do begin

        numex:=                                       //aca es donde quiero juntar los valores de numa y numb, no sumar, juntarlos

        if (numex mod n)=0

        then

        numx:=numx+1;

        writeln(numx,': ',numa,numb,numa,numb)

     end;readln;

  end.

var

i,j,num:integer;

begin

   for I := 1 to 9  do

     for j := 0 to 9 do

     begin

       num:=strtoint(inttostr(i)+inttostr(j));

       writeln(num);

     end;

   readln;

end.

uses CRT,sysutils;

var i,num,j:integer;

begin

	clrscr;

	for i:= 1 to 9 do

	for j:=0 to 9 do

		begin

		num:=strtoint(concat(inttostr(i),inttostr(j)));

		writeln(num);

		end;

	readln;

{Mira Esto a ver si sirve}

 program numeros;

   uses

      crt;

   var

      ee, num1, num2, num3 : integer;

      numero : string[2];

    begin

       num1 := 1;

       num2 := 3;

       numero[1] := chr(ord(num1) + 48);

       numero[2] := chr(ord(num2) + 48);

       numero[0] := chr(2);

       clrscr;

       val(numero,num3,ee);

       write(num3);

       readkey;

    end.

{Aquí te dejo algo mas sencillo que lo puedes ver como unirlos, y es cualquier numero ya que es el numero que indiques tu}

program unirdigito;

   var

     num1, num2: integer;

    begin

       writeln('ingrese primer digito: ');   {te pide el primer digito}

       readln(num1); {lee el primer digito}

       writeln('ingrese segundo digito: '); {te pide el segundo digito}

       readln(num2); {lee el segundo digito}

       writeln;  {salto de linea}

       writeln(num1,num2); {imprime el primer y segundo digito unidos}

    end.