Записати у програмному форматі F=G Mm/r2

Const n=5; m=4;
var 
a:array[1..n,1..m] of integer;
i,j,k,d,s:integer;
begin
Randomize;
writeln('Оценки:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
  a[i,j]:=random(4)+2;
  write(a[i,j]:4);
  end;
  writeln;
 end;
k:=0; s:=0;
for i:=1 to n do
 begin
 d:=0;
 for j:=1 to m do 
  begin
  if a[i,j]=2 then d:=d+1;
  s:=s+a[i,j];
  end;
 if d>0 then k:=k+1;
 end;
writeln('Количество неуспевающих = ',k);
writeln('Средний группы = ',s/n/m);
end.

Пример:
Оценки:
   5   3   3   5
   3   4   2   2
   4   5   5   5
   2   4   4   2
   5   2   3   3
Количество неуспевающих = 3
Средний группы = 3.55

Procedure P(Const A:integer; Var p:integer);
Var
   K:real;
   d:integer;
Begin
if 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;
Begin
Randomize;
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.