Срочно, пожайлуста!!!!3) Элементы двумерного массива С(10,10) целые случайные числа из

Uses crt;
var c: array [1..10, 1..10] of integer;
     p,n,i,j: integer;
     find:boolean;
begin
  clrscr;
  randomize;
  n:=10; P:=1;
  find:=false;find - положительных частей в матрице, кратных 5 нет
  for i:=1 to n do
  begin
  for j:=1 to n do
   begin
     c[i,j]:=-5+random(11);
     if (c[i,j]gt;0) and (c[i,j] mod 5 =0) then
      begin
       p:=p*c[i,j];find:=true;
      end;
     write(c[i,j]:6);
   end;
  writeln;
  end;
if find then
  writeln('творенье', p:7)
else
  writeln('положительных частей в матрице, кратных 5 нет')
end.