Something

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
        TVSerie = array[1..10] of real;

procedure LecturaDeLaSerie(var Serie:TVSerie);

var
        i: integer;
        x: real;
begin
  i:=1;
  write('Introduce la serie: ');
  readln(Serie[i]);
  for i:=2 to 10 do
          begin
                readln(Serie[i]);
                x:=Serie[i-1];
                while (Serie[i] = x) do
                 begin
                   writeln('Error! El numero tiene que ser diferente al anterior');
                   readln(Serie[i]);
                 end;

          end;
end;

procedure ValoresComunesDeLasSeries(Serie1, Serie2:TVSerie);
var
        k, i: integer;

begin
  Writeln('Valores Comunes',' ':5, 'Posicion en A', ' ':5,'Posicion en B');
  for i:=1 to 10 do
      begin
        for k:=1 to 10 do
                begin
                        if serie1[i] = serie2[k] then
                        writeln(serie1[i]:0:0,' ':5,i,' ':5,k);
                end;
      end;
end;

var
        Serie1,Serie2: TVSerie;

begin
  LecturaDeLaSerie(Serie1);
  LecturaDeLaSerie(Serie2);
  ValoresComunesDeLasSeries(Serie1,Serie2);
  readln;
end.