составить блок-схему!!!! пожалуйста помогите, добрые люди!!

ПО ПРОГРАММЕ: Дана матрица А (M,N). Составить вектор из номеров столбцов, где максимальный элемент является простым числом.

Program lr3;
uses crt;
var
a: array [1..100,1..100] of integer;
b: array [1..100] of integer;
i,j,n,m,count,max : integer ;
function isSimple(k: integer): boolean;
var
i: integer;
f: boolean;
begin
if abs(k) > 1 then f := true;
for i := 2 to abs(k) div 2 do
if abs(k) mod i = 0 then f := false;
isSimple := f
end;
begin
clrscr;
randomize;
write ('Введите размерность матрицы (n,m):');
readln(n,m);
writeln;
for i := 1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
begin
max:=a[1,j];
for i:=2 to n do
begin
if (a[i,j]>max) then max:=a[i,j];
end;
if (isSimple(max)) then
begin
inc(count);
b[count]:=j;
end;
end;
writeln;
writeln('Индексы столбцов где max просто число. ');
for i:=1 to count do write (b:3);
readln;
end.