Составить программу в паскаль, где при вводе любого трехзначного числа в результате все цифры этого числа записаны через запятую. например введите трехзначное число 123 результат 1,2,3

Program n1;
var a: integer;
begin
write('Введите трехзначное число: ');
readln(a);
write('результат: ',a div 100,',',a mod 100 div 10,',',a mod 10);
end.

var
s:string;
begin
Write('Введите трехзначное число -> ');
readln(s);
Write('Результат -> ',s[1], ',');
write(s[2], ',');
Write(s[3]);
end.

Пример:

Введите трехзначное число -> 453
Результат -> 4,5,3