Как решить задачу по информатике, в паскале????

uses Crt;
var
matr : array [1..5,1..5] of integer;
i,j,x,counter : integer;
begin
ClrScr;
WriteLn ('Сколько раз в массиве встречается элемент со значением X.');
WriteLn ('Ввод элементов массива');
For j:=1 to 5 do
For i:=1 to 5 do
begin
inc(counter);
Write ('Введите ', counter, ' элемент массива: ');
ReadLn (matr[j,i])
end;
counter:=0;
ClrScr;
Write ('':4, 'Введите любое число: ');
ReadLn (x);
For j:=1 to 5 do
For i:=1 to 5 do
begin
If x=matr[j,i] then inc(counter);
Write (matr[j,i]:2, '':2);
If i=5 then WriteLn
end;
WriteLn ('':4, 'Число ', x, ' в массиве встречается ', counter, ' раз');
ReadKey;
end.