Если задание недопонял, пиши и объясни. Перепишу
var text1:string; count,i:integer;
begin
write('Введите слово: ');
readln(text1);
write('Сколько раз мне его показать на экране? ');
readln(count);
for i:=1 to count do
begin
write(text1, ' ')
end;
end.