Составьте программу написания своего имени на экране в строчку сто

Var x: string;
i:integer; 
 begin  write('Введите имя: ');
  readln(x);
  for i:=1 to 100 do  write(x,' ');
end.