Algoritmo: questão 11 da lista de vetor

Pessoal,
Segue resposta da questão 11 da lista vetor:

program q11v;
var  par: array[1..10] of integer;
     impar: array[1..10] of integer;
     a,j,l,m,n: integer;
begin
    j:=1; l:=1;
    for m:=1 to 30 do
    begin
       writeln('Digite um valor:');
       readln(a);
       //if para testar se o numero eh par
       if (a mod 2=0) then
       begin
          if (j<=10) then
          begin
             par[j]:=a;
             j:=j+1;
          end
          else
          begin
              writeln('O conteudo do vetor par eh:');
              for n:=1 to 10 do
                writeln(par[n]);

              for n:=1 to 10 do
                par[n]:=-1;

              par[1]:=a;
              j:=2;
          end;
       end
       //else para testar se o numero eh impar
       else
       begin
          if (l<=10) then
          begin
            impar[l]:=a;
            l:=l+1;
          end
          else
          begin
              writeln('O conteudo do vetor impar eh:');
              for n:=1 to 10 do
                writeln(impar[n]);

              for n:=1 to 10 do
                impar[n]:=-1;

              impar[1]:=a;
              l:=2;
          end;
       end

    end;

     readln();
 end.