Найти сумму элементов массива

USES CRT;
Const nmax=15;
Var
X,Y : array [1..nmax] of integer;
i,n,s,k : integer;
BEGIN
clrscr;
Randomize;
Write('Укажите длинну массива от 1 до ',nmax,' = ');
ReadLn(n);
s:=0; k:=0;
WriteLn('New Massiv');
For i:=1 to n do
  Begin
    X[i]:=Random(20)-10;
    GOTOXY(i*4,3);
    Write(X[i]);
    GOTOXY(i*4,4);
    Write('====');
    Y[i]:=Random(20)-10;
    GOTOXY(i*4,5);
    Write(Y[i]);
    If ( ( X[i] > Y[i] ) and ( X[i] > 0 ) ) then
      begin
        s:= s + X[i];
        inc(k);
        GOTOXY(i*2,7);
        Write(X[i])
      end
  End;
GOTOXY(1,9);WriteLn('Сумма элементов = ',s);
GOTOXY(1,11);WriteLn('Количество элементов = ',k);
Readkey
END.

const n=10;
type mas=array[1..n] of integer;
var x,y:mas;
    i,s,k:integer;
procedure z(var a:mas);
var i:integer;
begin
 for i:=1 to n do
  begin
   a[i]:=-n+random(2*n);
   write(a[i]:4)
  end;
 writeln
end;
begin
 randomize;
 writeln('x');
 z(x);
 writeln('y');
 z(y);
 s:=0;k:=0;
 for i:=1 to n do
  if (x[i]>0)and(x[i]>y[i])
   then
    begin
     inc(s,x[i]);
     inc(k)
    end;
 writeln('s=',s,' k=',k);
 readln
end.

USES CRT;
Const nmax=15;
Var
X,Y : array [1..nmax] of integer;
i,n,s,k : integer;
BEGIN
clrscr;
Randomize;
Write('Укажите длинну массива от 1 до ',nmax,' = ');
ReadLn(n);
WriteLn('|   X  |   Y  |');
For i:=1 to n do
  begin
    X[i]:=Random(41)-20;
    Y[i]:=Random(41)-20;
    WriteLn('| ',X[i]:3,'  | ',Y[i]:3,'  |')
  end;
s:=0; k:=0;
For i:=1 to n do
  Begin
    If ( ( X[i] > Y[i] ) and ( X[i] > 0 ) ) then
      begin
        s:= s + X[i];
        inc(k);
        Write(X[i]:3)
      end
  End;
WriteLn;
WriteLn('Сумма элементов = ',s);
WriteLn('Количество элементов = ',k);
Readkey
END.