выбор простых чисел

[изо]

Имеется программа для выбора из z [i,j] := x[i] * y[j] чисел, остаток деления на 9 равен 1 и их распечатка в виде таблицы. Как дополнить представленную программу, чтобы из выбранных таким образом чисел, выбрать простые числа (делящиеся нацело только на себя и 1) и, также распечатать их в таблице.

program tabl6;
const
n = 20;
m = 12;
r = 6;
c = 3;
p = ' ';
var
z: array[1..n, 1..m] of integer;
x: array[1..n] of integer;
y: array[1..m] of integer;
i, j, k: byte;
begin
writeln;
write(p:c, '|');
for j := 1 to m do
write(j:r, '|');
writeln;
write('---+');
for k := 1 to m do
write('------+');
writeln;
for i := 1 to n do
begin
Write(i:c, '|');
for j := 1 to m do
begin
x[i] := 2 * i + 1;
y[j] := 2 * j + 1;
z[i, j] := x[i] * y[j];

if z[i, j] mod 9 = 1 then
Write(b[i, j]:r, '|')
else Write(p:r, '|')
end;
Writeln;
write('---+');
for k := 1 to m do
write('------+');
writeln;
end;
Readln
end.

[Mad_Cat]

написать функцию опред. простоту числа

Function IsSimple (z:integer):boolean;//(c)ALEX FCSM
var j,lim: integer;
begin
     IsSimple:=false;
     lim:=round(sqrt(z));
     j:=2;
     while (z mod j <> 0) and (j <= lim) do inc( j );
     if (j > lim) then IsSimple:=true;
end;

и прогнать через нее массив)

[изо]

Сообщение от Mad_Cat

написать функцию опред. простоту числа

Function IsSimple (z:integer):boolean;//(c)ALEX FCSM
var j,lim: integer;
begin
     IsSimple:=false;
     lim:=round(sqrt(z));
     j:=2;
     while (z mod j <> 0) and (j <= lim) do inc( j );
     if (j > lim) then IsSimple:=true;
end;

и прогнать через нее массив)

Извините, пожалуйста, я приблизительно понял, что значит прогнать массив, но как это конкретно привязать к представленной мной программе. Вернее, как в неё вставить ваш код