Функция с помощью которой можно проверить введённое число больше 10 или нет.

function Bolshe(n:real):boolean;
begin
 if n>10 then Bolshe:=true else Bolshe:=false;
end;

function proverka(a:word):boolean;
 var
pr:boolean;
i:word;
begin
 pr:=true;
 if i>10 then pr:=true
    else pr:= false;
proverka:=pr;
end;

Program Funkciya;
uses crt;
var
 i,j,b:byte;
 a:array[1..5,1..4] of real;
 
function bol10(x:real):byte;
begin
 if x>10 then bol10:=1 else bol10:=0;
end;
 
begin
 clrscr;
 randomize;
 for i:=1 to 5 do begin
   for j:=1 to 4 do begin
      a[i,j]:=random(20)+random;  write(a[i,j]:5:1);
      if bol10(a[i,j])=1 then inc(b);
   end;
   writeln;
 end;
 writeln;
 writeln('Chisel bolshe 10: ',b);
 readkey;
end.

program sort;
uses crt;
var m:array[1..5,1..4]of integer;
i,j,k:integer;
 
function Bolshe(n:integer):boolean;
begin
 if n>10 then Bolshe:=true else Bolshe:=false;
end;
 
begin
 clrscr;
 k:=0;
 randomize;
 for i:=1 to 5 do
 for j:=1 to 4 do
 begin
 m[i,j]:=random(16);
 if Bolshe(m[i,j]) then inc(k);
 end;
 
 writeln('Massiv:');
 for i:=1 to 5 do
 begin
  writeln;
  for j:=1 to 4 do write(m[i,j]:2,' ');
 end;
 writeln;
 writeln('Elementov>10 =',k);
 readln;
 
end.