Программирование отобразите на экране c раз число d в строку. числа c и d простые и вводятся с клавиатуры

Program number;
var c, d,i:integer;
begin
writeln('Введите число');
readln(d);
writeln('Введите сколько раз вывести число');
readln(c);
for i:=1 to c do
write(d,' ');
end.