Написать массив, который повторяет ввод числа, пока вы не введете переменную

Program g123;
var a:array[1..99999] of integer;
g,s,i:integer;
begin 
write('Введите S:= '); 
readln(s); 
begin
repeat 
a[i]:=a[i]+1;
for i:=1 to 10 do 
write('Введите [',i,']: '); 
readln(a[i]); 
until a[i]=s; 
for i:=1 to 10 do
writeln(a[i]);
end
end.

Program g123;
var 
  a:array[1..99999] of integer;
  g,s,i:integer;
begin 
  write('Введите S:= '); readln(s); //ввели S
repeat 
  {a[i]:=a[i]+1;}//будет ошибка, т.к. массив с 1, а переменная i проинициализирована по умолчанию в 0
  for i:=1 to 10 do write('Введите [',i,']: '); //10 раз вывели надпись с числами числа от 1 до 10
  readln(a[i]); //прочитали a[10]
until a[i]=s; //пока a[10] не будет равно S
for i:=1 to 10 do writeln(a[i]); //печатаем массив
end.

  var a:array[1..10] of integer;
        i:integer;
  begin  
    for i:=1 to 10 do begin //начало тела цикла (последовательность операторов, которые будут выполняться в цикле)
      write('Введите [',i,']:');
      readln(a[i]);
    end;//конец тела цикла
end.

var
  i:integer;
  a:array of integer;//в массиве не указаны границы, 
                     //т.к. ввод чисел может быть не ограниченным
                     //такие массивы называются динамическими нумерация индексов идет с 0
begin
  repeat
    i:=i+1;
    Setlength(a,i);//устанавливаем новую длину массива. по сути она тут равна i
    write('Введите число №',i,':');
    readln(a[i-1]);//индекс в динамическом массиве меньше на единицу (так удобнее)
  until (i>1)and (a[i-1]=a[0]);//условие выхода из цикла - номер текущего числа не первый и введенный элемент должен быть равен первому
  for i:=0 to i-2 do write(a[i],' ');//печатаем все кроме последнего числа
end.