90 баллов!!Помогите написать программу в Паскаль. 2 задача. Надо решить через цикл с параметром

const n = 3;

var i,s1,s2:integer;

var a,b:array[0..3] of integer;

begin

writeln('Введите оценки первого ученика через пробел');

for i:=0 to n do read(a[i]);

writeln('Введите оценки второго ученика через пробел');

for i:=1 to n do read(b[i]);

for i:=1 to n do begin s1:=s1+a[i]; s2:=s2+b[i]; end;

if s1>s2 then writeln('Первый ученик учится лучше') else writeln('Второй ученик учится лучше');

end.