Вывести на экран 100 пронумерованных имен. пр.: 1)маша 2)маша )маша c циклом for.

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