Найдите количество элементов двумерного массива A[1..5,1..5] равных 1. Массив заполните случайными числами в диапазоне от -10 до 10. Вывести массив на экран в виде таблицы и количество элементов равных 1.

VARa:array[1..5,1..5]of integer;i,j,k:integer;begin  for i:=1 to 5 do     begin       writeln;          for j:=1 to 5 do               begin                  a[i,j]:=random(21)-10;                   write(a[i,j]:4);                      if a[i,j]=1 then                        k:=k+1;               end;      end;writeln;if k=0 then   writeln('нет =1')else    writeln(k);end.