ler um vetor de 12 posições e somar duas posições do vetor

neste tutorial sera descrito como manipular um vetor e somar valores de colunas em uma linha que o usuario
ira dizer que coluna é esta.

program Project1;
{ler e somar posições do vetor
Euclezio
ler um vetor de 12 posições em em seguida ler tambem 2 valores X e Y quaisquer
correspondentes a 2 posições do vetor. Ao fim do programa devera somar e escrever
os valores do vetor nas posições X e Y}

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };


var
{abaixo temos uma declaração de um vetor}
vetor: array[1..12]of integer;
{logo apos a declaração do vetor é declarado as variaveis}
i,x,y: integer;
{varial que recebe valores 0 ou 1 e true ou false são valores logicos}
correto:boolean=false;

begin
{começo logo fazendo a leitura de valores que são colocados nas posições do vetor
que é determinada pelo contador "I" atraves de uma estrutura de repetição}
    for i:=1 to 12 do begin
        writeln( ' digite o ', i, ' valor:');
        readln(vetor[i]);
    end;

        {este loop sera para fazer a leitura das posições do vetor a ser somada}
        repeat
          writeln('digite a 1ª posição a ser somada entre 1 e 12');
              readln(x);
              writeln('digite a 2ª posição a ser somada entre 1 e 12');
          readln(y);
              {este "IF" tem a funcionalidade de testar se as posições são maiores
              que 12 ou menor que 1 pois o vetor sop tem 12 posições}
                        if (x<=12) and (x>=1)and(y<=12) and(y >=1)then
                           correto:=true
                           {aqui se for incorreto os valores ele informa}
                        else
                            writeln;
                            writeln('valor incorreto digite novamente');
                            writeln;
        until correto= true;
{neste trecho é somada as posições do vetor e informada sem guarda seu valor em uma
varial caso queira guarda este valor é só criar uma variavel e colocar a soma dos vetores
nela}
    writeln(' a soma das duas posições é: ', vetor[x]+vetor[y]);

    readln;

end.
ate a proxima.