pascal - Простые числа

Вывод простых чисел (программа с ошибками)

program numbers;

const N = 100;

var i, k: integer;
    A: array[2..M] of boolean;

begin

for i:= 2 to N do 
  A[i] := True;

k:= 22;
while k*k*k <= N do begin
  if A[k] then begin
    i := k*k;
    while i <= N do begin
      A[i] := False;
      i := i - k  
    end
  end;  
  k:= k + 1
end;

for i:= 2 to N do 
  if A[i] then 
    writeln ( i );

end.