Почему выдаёт значение 0000?

[SiniX]

Почему выдаёт значение 0000?

program bullsncows;
  var a , b , c , d , abcd , bulls , cows : integer;
begin
  while (a <> b) and (a <> c) and (a <> d) and (b <> c) and (b <> d) and (c <> d) and (a <> 0) do
  begin
    a := random(10);
    b := random(10); 
    c := random(10); 
    d := random(10); 
  end;
  writeln( a , b , c , d );
end.

[Alex11223]

Потому что

program bullsncows;
var a , b , c , d , abcd , bulls , cows : integer;
begin
writeln( a , b , c , d );
end.

[SiniX]

Понял в чём ошибка.