В какомиз двух данных массивов р (n) q (n) больше элементов, равных 1?

Uses crt; const M=5; var p,q: array [1… M] of integer; n,k,l: integer; begin for n: =1 to M do begin write ('p[',n,']: '); readln (p[n]); if p[n]=1 then inc (k); write ('q[',n,']: '); readln (q[n]); if q[n]=1 then inc (l); end; if k>l then writeln ('p[n]'); if k