с клавиатуры вводится последовательность из целых чисел, 0-конец последовательности

 const n=100;
 var a:array[1..n] of integer;
     k,i,j,indi,indj:integer;
     f:boolean;
begin
    writeln('Vvedite elementy... 0-is znak finish of enter');
     k:=1;
     f:=true;
 
   {ввод значений масива чисел}
 
     while f do
     begin
     write('a[',k,']=');readln(a[k]);
          if (k=n) or (a[k]=0) then f:=false else inc(k);
 
     end;
     k:=k-1;
 
  {вывод введеной последовательности. при желании можно убрать}
 
     for i:=1 to k do
       write(a[i],' ');
 
       writeln;
 
{поиск совпавших элементов и запоминание их индексов}
  
     for i:=1 to k-1 do
       for j:=i+1 to k do
        begin
         if (a[i]=a[j]) and (i<>j) then begin indi:=i; indj:=j;end;
       end;
 
 
        writeln('poskedniy element povtora is=',a[indi], ' index is=',indi,' ',indj);
       
       writeln('index poskednego element povtora is=',indj);
 {       выводить или первый  или второй  writeln  ...можно и оба... }
       readln;
end.