Определить, в каком из двух массивов больше элементов, равных 1?

const n=8;
var p,q: array [1..n] of real;
    i,k1,k2:integer;
begin
 cls;
 for i:=1 to n do begin
 p[i]:=random(20)-10;
 write(p[i],' ');
 end;
 writeln;
 for i:=1 to n do begin
 q[i]:=random(20)-10;
 write(q[i],' ');
 end;
   k1:=0;
   begin
   for i:=1 to n do
   if p[i]=1 then k1:=k1+1;
   k2:=0;
   if q[i]=1 then k2:=k2+1;
    if k1>k2 then writeln(k1, ' ');
    if k2>k1 then writeln(k2,' ');
    if k1=k2 then writeln('Одинаковое кол-во');
end;
end.

const n=8;
var p,q: array [1..n] of real;
    i,k1,k2:integer;
begin
 cls;
 for i:=1 to n do begin
 p[i]:=random(20)-10;
 write(p[i],' ');
 end;
 writeln;
 for i:=1 to n do begin
 q[i]:=random(20)-10;
 write(q[i],' ');
 end;
 writeln;
 
   k1:=0;
   begin
   for i:=1 to n do
   if p[i]=1 then k1:=k1+1;
   k2:=0;
   if q[i]=1 then k2:=k2+1;
    if k1>k2 then writeln(k1, ' ');
    if k2>k1 then writeln(k2,' ');
    if k1=k2 then writeln('Одинаковое кол-во');
end;
end.

uses crt;
const n=8;
var a,b:array[1..n] of integer;
 i,k1,k2:integer;
BEGIN
clrscr;
randomize;
  for i:=1 to n do
   begin
    a[i]:=random(20)-10;
    b[i]:=random(20)-10;
   end;
 
    for i:=1 to n do
      write(a[i]:4);
      writeln;
      writeln;
    for i:=1 to n do
     write(b[i]:4);
     writeln;
     writeln;
      k1:=0;k2:=0;
 
       for i:=1 to n do
        if a[i]=1 then
         inc(k1);
 
       for i:=1 to n do
        if b[i]=1 then
         inc(k2);
 
        if k1>k2 then
         writeln('1 massiv ')
        else
        if k1<k2 then
         writeln('2 massiv ')
        else
         if (k1=0) and (k2=0) then
          writeln(' nety ')
         else
          writeln('Odinakovo ');
 
readkey;
END.