piszę grę o liczbach zgadujących i muszę oddzielić 4-cyfrową liczbę na jej cyfry i umieścić cyfry w tablicy.Jednak ta sekcja wciąż daje mi błąd wykonania 201 przy użyciu fpc.Jednak gdy używam ideone.com to daje mi czego chcę. Nie potrafię zrozumieć. Może to być błąd? Przepraszam za mój angielski.

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.

Edytuj: Rozwiązałem problem. Dziękujemy Marco van de Voort.

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

Zmieniłem tę sekcję na to.

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