Паскаль: дано 3-х значное число 121,разбить его на три числа 1,2,1

var s,l , o, k :integer;
begin
writeln ('3-x значное число');
readln (s);
k:=s div 100;
s:=s mod 100;
l:=s div 10;
o:=s mod 10;
writeln (k,',', l,',', o  );
end.