Пожалуйста, помогите найти ошибку в программе

[Марина357]

Найти сумму и число тех элементов заданного массива x1,x2..xn, каждый из которых, во первых больше элемента с тем же номером из другого заданного массива y1,y2..yn, а во вторых, положителен.

Program lab142;
var x:array[-2..7]of integer; y:array[-5..4] of integer; k,s,i,r: integer;
begin
writeln('Введите x');
for i:=1 to 10 do readln (x[i]);readln;
writeln('Введите y');
for r:=1 to 10 do readln (y[r]);readln;
k:=0; S:=0; i:=1; r:=1;
While i>r do
begin
if i>0 then k:=k+1;
S:=0+s;
i:=i+1;
r:=r+1;
end;
Writeln ('k=',k,'S=',S);
end.

[Stilet]

Елы-палы... Ты откуда сие произведение искусства выдрала?

const n=1
var x,y:array[1..n] of integer; k,s,i: integer;
begin
writeln('Введите x'); for i:=1 to n do readln (x[i]);readln;
writeln('Введите y'); for i:=1 to n do readln (y[i]);readln;
for i:=1 to n do if (x[i]>y[i]) and (x[i]>0) then begin s:=s+x[i]; inc(k); end;

Writeln ('k=',k,'S=',S); readln;
end.

Так лучше?

[Марина357]

Да, так намного лучше
Спасибо!