Нужно заполнить таблицу

Задание: Мына сөздерді зат есімдермен тіркестіріп жазыңдар.

Ұтқыр, дүлдүл, шешен, ділмар, майталман, суырыпсалма, бейнелі.

Код Pascal:

Const
   n = 13;
Type
   Mass = array[1..n] of real;
Function KL(Var A:Mass; c:real):integer;
Var
   k,i:integer;
Begin
k:=0;
For i:= 1 to n do
   if A[i] > c then k:=k+1;
KL:=k;
End;
Var
   A:Mass;
   i:integer;
   c:real;
Begin
Randomize;
Write('A(',n,'):');
For i:= 1 to n do
   Begin
   A[i]:=random*21-10;
   Write(' ',A[i]:0:3);
   End;
WriteLn;
Write('c = ');ReadLn(c);
WriteLn('k = ',KL(A,c))
End.

Пример работы программы:

A(13): -2.768 10.516 -3.518 9.286 5.555 1.039 1.225 -6.135 8.743 7.440 -3.979 6.129 -7.982
c = 3
k = 6

// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,0,199);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Write('Искомые числа: ');
  var s:=a.Rows.SelectMany(x->x).Where(x->x.Between(10,99))
      .Where(x->(x div 10+x mod 10).IsEven);
  s.Println;
  Writeln('Количество чисел равно ',s.Count)
end.

Пример
Количество строк и столбцов в массиве: 4 7
*** Исходный массив [4,7] ***
  65 112  78 133  52 108  39
  73 162  64  31  55 156 107
  14 105  88  55  16 146 143
  19  97  33 138  16  37 198

Искомые числа: 39 73 64 31 55 88 55 19 97 33 37
Количество чисел равно 11