Задан двухмерный массив. Определить, сколько раз встречается число 1 среди элементов третьей строки матрицы.

Program project1;
uses
crt,math;
const
n=3;
var 
s:real; 
 i,j,f:byte; 
a:array [1..n, 1..n] of integer;
begin 
 for i:=1 to n do 
begin 
 for j:=1 to n do
  begin 
 write(vvedite ,i,.,j, cifru );readln(a[i,j]); 
  end; 
 end;
  for i:=1 to n do 
begin 
 for j:=1 to n do
  begin 
 if (a[i,3]=1) then  inc(f); 
end; 
 end;
 writeln(1 vstrechaetsya: ,f:2, raz); 
readln;
end.