Pascal/Turbo Pascal - Ayuda!!

{A ver si esto es lo que quieres}

program pares;

  uses

    crt;

  var

    arraynume : array[1..10] of integer;

    i, n, num : integer;

    exite : boolean;

  begin

      clrscr;

      randomize;

    repeat

      num := random(54);

      exite := false;

      for i := 1 to n do

      begin

         if arraynume[i] = num then

         exite := true;

         break;

      end;

      if (num > 0) and (exite = false) then

      begin

      arraynume[n] := num;

      n := n + 1;

      end;

    until n > 10;

    num := 0;

    for n := 1 to 10 do

    begin

       if arraynume[n] mod 2 = 0 then

       begin

       write('  ',arraynume[n]);num := num + 1;

       end;

    end;

    writeln;

    writeln('  Estos Son Los N§ pares Total = ',num);

    writeln('   Pulsa [Enter]');

    readln;

  end.