Составьте программу, формирующую строку, образованную любым количеством любого символа (количество и символ вводятся с клавиатуры). решить на free pascal

Var c:char; n,i:integer; s:string;
begin
write('Введите символ: ');
readln(c);
write('n = ');
readln(n);
s:='';
for i:=1 to n do s:=s+c;
writeln(s);
end.

Пример:
Введите символ: f
n = 5