Проверить, есть ли в матрице хотя бы одна строка, содержащая элемент, равный заданному числу, и найти её номер- Pascal(Паскаль)

Program m;
uses
 crt;
var
 matrica: array[1..5,1..5] iof integer;
 i,j:integer;
 C,p:integer;
begin
Writeln('------Vedite matricu------');
 For i:=1 to 5 do
 For j:=1 to 5 do
  Readln(Matrica[i,j]);
 
 Writeln('-----Vedite iskomoe chislo-----');
 Readln(C);
  For i:=1 to 5 do
  For j:=1 to 5 do
   If Matrica[i,j]=с then 
    p:=i;
 Writeln ('V ',i, 'stroke est ',c);
 
end.