He estado escribiendo un juego sobre adivinar números y tengo que separar un número de 4 dígitos en sus dígitos y poner dígitos en una matriz. Sin embargo, esa sección me sigue dando un error de tiempo de ejecución 201 usando fpc.Si bien cuando uso ideone.com, me da Lo que quiero. No puedo entenderlo. ¿Puedo ser un error? Lo siento por mi inglés.

program game;
var
    number : array [1..4] of integer;
    z, i, j: integer;
    number_4digit: integer;
begin
     readln(number_4digit);
     for i := 4 downto 1 do begin
        j := i;
        z := number_4digit;
        while z > 10 do begin
            z := z div 10;
     end;   
     number[5-i] := z;
     repeat
           z := z * 10;
           j := j - 1;
     until j = 1;
     number_4digit:= number_4digit - z;
     write(number[5-i], ' ');  
end;    
end.

Edición: resolví el problema. Gracias por Marco van de Voort.

repeat
      z := z * 10;
      j := j - 1;
until j = 1;

Cambié esta sección en esto.

while j > 1 do begin
 z := z * 10;
     j := j - 1;
end;