Безконечный цикл

[ProAndrew]

Задача

Выведите на экран таблицу квадратов целых чисел от 0 до 999 . Таблица должна состоять из 100 строк по 10 значеий
в каждой строке .

Мой код

program project3 ;

const
  n = 999 ;
  z = 10 ;

var
  i , k , a : LongInt ;

begin
  for i := 1 to 999 do
    begin
      for k := 0 to z do
        begin
          a := i * i ;
          Write(a , '  ') ;
          i := i + 1 ;
        end ;
      WriteLn ;
    end ;
  ReadLn ;
end.

Чето не получаеться . Цикл безконечный .

Помогите пожалуиста .

[alex_fcsm]

В цикле for счетчик автоматически увеличивается

program project3 ;

const
  n = 999 ;
  z = 10 ;

var
  i: LongInt ;

begin
  for i := 1 to n do
    if i mod z = 0 then writeln(i*i,';')
        else write(i*i,';');
  ReadLn ;
end.