Паскаль. Підпрограми-процедури

[Yuryk26]

Дано двовимірний масив цілих чисел. В кожному рядку знайти кількість елементів рівних а.

[New man]

program s;
var arr:array [1..10,1..5]of integer;
   i,j,n,x:integer;
begin
   for i:= 1 to 10 do
   for j:=1 to 5 do
   arr[i,j]:=random(10);
   x:=0;
   readln(n);
   for i:= 1 to 10 do
begin 
   for j:=1 to 5 do if arr[i,j]=n then inc(x);
   writeln(x);
   x:=0;
   end;
readln
end.