Сформировать последовательность, в которой каждое число, записываемое двумя соседними цифрами, делится на 19 или 23

Uses Crt;
Const prime1 = 19;
      prime2 = 23;
Var
   n, X0, X10,
   i, NextDigit: Integer;
   Sequence: String;
Begin
  n:=10; {запрашиваемое число цифр последовательности}
  X0:=4; {первая цифра}
  Sequence:=Chr(X0 OR $30); {добавим в строку цифр}
  X10:=X0*10;
  For i:=1 to n do
    Begin
      NextDigit:=prime1 - (X10 mod prime1);
      If NextDigit < 10 then Sequence:=Sequence+Chr(NextDigit OR $30) {добавим в строку цифр}
      Else
        Begin
          NextDigit:=prime2 - (X10 mod prime2);
          If NextDigit < 10 then Sequence:=Sequence+Chr(NextDigit OR $30) {добавим в строку цифр}
          Else Break;  {последовательность не может быть продолжена}
        end;
      X10:=NextDigit*10;
    end;
End.

Uses Crt;
Const prime1 = 19;
      prime2 = 23;
Var
   n, X0, X10,
   k, i, NextDigit: Integer;
   Sequence: Array[1..200] of Byte;
Begin
  n:=10; {запрашиваемое число цифр последовательности}
  X0:=4; {первая (заданная) цифра}
  k:=1;   {это будет индекс массива Sequence}
  Sequence[1]:=X0; {сохраним в массиве цифр первую заданную цифру}
  X10:=X0*10;
  For i:=1 to n do
    Begin
      NextDigit:=prime1 - (X10 mod prime1);
      If NextDigit < 10 then 
        Begin
           Inc(k);
           Sequence[k]:=NextDigit; {добавим в массив цифр}
        end
      Else
        Begin
          NextDigit:=prime2 - (X10 mod prime2);
          If NextDigit < 10 then 
            Begin
              Inc(k);
              Sequence[k]:=NextDigit; {добавим в массив цифр}
            end
          Else Break;  {последовательность не может быть продолжена}
        end;
      X10:=NextDigit*10;
    end;
{После выхода из цикла массив  Sequence будет содержать требуемую последовательность
цифр, а k будет равно количеству этих цифр}
End.

uses crt;
var i,n,cp,c: integer;
begin
write('n='); readln(n);
write(''); readln(cp);
write(cp);
for i:=1 to n do
    begin
    c:=(cp mod 10)*10;
    repeat
    inc(c);
    until (c mod 19=0) or (c mod 23=0);
    cp:=c;
    write(c);
    end;
end.

For i:=1 to k do Write(Sequence[i]);