помогите пожалуйста с задачей....не знаю как вообще выводить на печать:"составить прогу котвыводила на печать элементы последовательности ...... по 6 элементов вкаждой строке"

for i := 1 to 100 do begin
  write(i:4);
  if i mod 6 = 0 then writeln;
end;

Принцип ясен?

ого сапсиба!!!!бесконечно благодарен