Даны целочисленные таблицы А(1:N) и B(1:N). Подсчитать количество элементов, для которых A(I)>B(I), A(I)

program kkk;
uses crt;
const n=3;
var a:array[1..n] of integer;
b:array[1..n] of integer;
i,s1,s2,s3:integer;
begin
clrscr;
s1:=0;
s2:=0;
s3:=0;
writeln('Vvedite tablitsu A:');
for i:=1 to n do
readln(a[i]);
writeln('Vvedite tablitsu B:');
for i:=1 to n do
readln(b[i]);
for i:=1 to n do
begin
if a[i]>b[i] then
s1:=s1+1
else
if a[i]<b[i] then
s2:=s2+1
else
s3:=s3+1;
end;
writeln('A(I)>B(I): ',s1:2);
writeln('A(I)<B(I): ',s2:2);
writeln('A(I)=B(I): ',s3:2);
readln
end.