Tabuada Com Vetor "ARRAY" Exemplo com 2 Métodos de Aplicaçã

program TabuadaVetorFinal;
uses crt;
const NUMERO = 10;
var
    A :  array[1..NUMERO] of integer;
    i :  integer;
    n :  integer;
    sn:  string[3];
begin
  repeat
  { Entrada- alimenta o vetor. }
  write('Digite o numero Que Deseja Fazer a Tabuada: ');
  readln(n);
  { Processamento }
  writeln('Tabuada do ', n,' Esse Primeiro Exemplo foi atribuido A[1]...A[10]');
  for i:= NUMERO downto 1 do
  begin
        A[1] := (n * i);
        A[2] := (n * i);
        A[3] := (n * i);
        A[4] := (n * i);
        A[5] := (n * i);
        A[6] := (n * i);
        A[7] := (n * i);
        A[8] := (n * i);
        A[9] := (n * i);
        A[10]:= (n * i);
        write(n:4,' X ',i:2, ' = ' , A[i]:4);
  if (A[i] mod 2 = 0) then
        writeln(' he Par  ')
  else
        writeln(' he Impar');
  end;
    writeln();
    writeln('Tabuada do ',n,' Sedundo Exemplo Atribuido a Variavel A[i]');
  for i:=1 to NUMERO do
  begin
    A[i] := n * i;
    writeln(n:3, ' x ',i:2,' = ',A[i]:3);
  end;

    write('Deseja continuar SIM/NAO? ');
    readln(sn);
    sn :=upcase(sn);
    until(sn = 'NAO');
    Writeln('Vai Curinthia Caraio!!!');
    writeln('fim');
  readkey;
end.