Задача на массив

[AnoKaJIunCuC]

Суть задачи заключается в следуйщем:
Найти и занести в массив первые 100 простых чисел. Простым называется число, которое делится на себя и на 1. Числа печатать по 10 штук в строке.

[Mad_Cat]

var x:integer;i1:integer;
function IsSimple(N: integer): boolean;
var i:Integer;
begin
  IsSimple := True;
  for i:=2 to round(sqrt(N)) do
    if N mod i = 0 then
    begin
      IsSimple := False;
      exit;
    end;
end;
begin
 i1:=0;x:=1;
 while i1<=99 do
 begin
  if IsSimple(x) then begin
   if i1 mod 10 = 0 then Writeln;
   write(x:6);Inc(i1);
  end;
   inc(x);
 end;
 readln;
end.