Составить программу чтобы компьютер сто раз написал имя на экране в строчку в систему паскаль

Program;
var a: integer
begin
write('Имя');
readln(a);
write(a,a,a,a) //тут должно быть сто а
end.
По-другому незнаю