Создать общую программу

[изо]

Имеется программа для выбора из z [i,j] := x[i] * y[j] чисел, остаток деления на 9 равен 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.


Как дополнить представленную программу кодом:

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;
чтобы из выбранных с помощью первой программы чисел, выбрать простые числа (делящиеся нацело только на себя и 1) и, также распечатать их в таблице.