Get a random three-digit number and output all its individual digits separated by commas. Make for Pascal program

program zz1;
var s, n, k: integer; // set variables of integer type
begin

n: = random (1000) + 100; // get a random three-digit number
s: = 100; // set the initial value for the division parameter
while n> 0 do // organize a loop while there are digits in a three-digit number
begin
k: = n div s; // get the first digit of a three-digit number
write (k, ‘,’); // display it on the screen, separated by commas
n: = n mod s; // discard the first digit of a three-digit number
s: = s div 10; // change the division parameter
end;

end.