Pascal/Turbo Pascal - mostrar los números impares de un array

Hola me piden esto y no sé resolverlo ayuda gracias
Crea un programa que pida al usuario diez números enteros, los guarde en un array y luego muestre los que son impares.

Te propongo la siguiente solución:

tal cual esta el programa me dice que falta ";" en const y que son valores inesperados y no compila

Debes haber cometido algún error al copiar o transcribir el código. Funciona correctamente tal cual está escrito.

uses crt;
const
n = 10;
type
arre = array[1..n] of LongInt ;
var
a,b: arre;
ma : longint;

procedure cargar;
var
h : Integer;
begin
for h := 1 to n do
begin
writeln('Ingrese el numero[ ', h,' ]');
readln(a[h]);
end;
end;


procedure proceso(xx:arre; var zz:arre;var con:LongInt);
var
h : Integer ;
begin
con := 0;
for h := 1 to n do
begin
if (abs(xx[h]) mod 2 = 1) then
begin
con := con + 1;
zz[con] := xx[h] ;
end;
end;
end;


procedure mostrar(xx:arre; nu:integer);
var
h : Integer;
begin
writeln('Los numeeos inpares son: ');
for h := 1 to nu do
begin
write('[',xx[h]:3,'] ');
end;
end;


begin

clrscr;
cargar;
proceso(a,b,ma) ;
if (ma = 0) then
WriteLn('el arreglo no tiene numeros impares ')
else
mostrar(b,ma);



end.