Первая задача :на нахождение числа А​

program pr; uses crt; var n,m: array[1..15] of integer;       i,knp,kmp,kno,kmo: integer; beginknp: =0; kmp: =0; kno: =0; kmo: =0; writeln('mas(n)'); for i: =1 to 15 do begin n[i]: =random(36)-15; write(n[i],'; ') end; writeln; writeln('mas(m)'); for i: =1 to 15 do begin m[i]: =random(36)-15; write(m[i],'; ') end; for i: =1 to 15 do begin                                  if n[i]> =0 then knp: =knp+1                                                        else kno: =kno+1;                                   if m[i]> =0 then kmp: =kmp+1                                                        else kmo: =kmo+1;                                   end; writeln; writeln('кол-во положительных массива n=',knp); writeln('кол-во отрицательных массива n=',kno); writeln('кол-во положительных массива m=',kmp); writeln('кол-во отрицательных массива m=',kmo); readln; end.