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

Var s:string;i,n:integer;
begin
read (s);
read (n);
for i:=1 to n do writeln (s);
end.

Var i,b:integer; a:string;
Begin       
WRite('Введите имя - ');       
readln(a);       
write('Введите число - ');       
readln(b);       
for i:=1 to b do       
 writeln(a);       
readln;
end.