Составить программу, которая заполняет одномерный массив из 20 элементов случайными целыми числами от 1 до 99, а затем определяет, сколько в массиве имеется простых чисел (простым числом называется такое, которое делится только на единицу или само на себя). Процесс определения того, является ли число простым, оформить в виде отдельной процедуры.

Помогите пожалуйста составить блок схему к этой программе

Procedure P(Const A:integer; Var p:integer);Var   K:real;   d:integer;Beginif A > 1 then   if (A = 2)or(A = 3) then p:=p+1   else      if A mod 2 <> 0 then         Begin         K:=Sqrt(A);         d:=3;         While (d<K)and(A mod d <> 0) do            d:=d+2;         if A mod d <> 0 then            Begin            p:=p+1;            Write('(простое)')            End         End;End;Const   N = 20;Var   A:array[1..N] of integer;   i,k:integer;BeginRandomize;k:=0;Write('Исходный массив:');For i:= 1 to N do    Begin    A[i]:=random(99)+1;    Write(' ',A[i]);    P(A[i],k);    End;WriteLn;WriteLn('Кол-во простых чисел в массиве: ',k);End.