Ejercicio 10 arrays

PROGRAM array10 (input,output);
const
n=20;
VAR
A,B:string(10);
C,aux:string(20);
PROCEDURE ordenar (VAR C:string);
var
i, j: integer;

BEGIN
i:=1;
j:=1;


for i:= 1 to n do
for j:= 1 to (n-i) do
if (C [j+1] begin
aux:= C[j+1];
C[j+1]:=C[j];
C[j]:=aux;
end;


END;
BEGIN
write('dame 10 numeros sin espacios:');
readln(A);
write('escribe otros 10 numeros sin espacios:');
readln(B);
C:=A+B;
ordenar(C);
writeln(C);
END.