Почему не работает?

program ideone;
var a: array [0..100] of Integer;
var b: array [0..100] of Integer;
var c: array [0..100] of Integer;
var d: array [0..100] of Integer;
var i,j,l,r:Byte;
var n,m,p,q:Integer;
var s1,s2,s3,4: Integer;
var sr1,sr2,sr3,sr4,sr5:Real;
begin
readln(n,m,p,q);
s1:=0;s2:=0;s3:=0;s4:=0;
for i:=0 to n do
begin
readln(a[i]);
s1:=s1+a[i];
end;
for j:=0 to m do
begin
readln(b[j]);
s2:=s2+b[j];
end;
for l:=0 to p do
begin
readln(c[l]);
s3:=s3+c[l];
end;
for r:=0 to q do
begin
readln(d[r]);
s4:=s4+d[q];
end;
    write(sr1:5);
    write(sr2:5);
    write(sr3:5);
    writeln(sr4);
    if(sr1>sr2) and (sr1>sr3) and (sr1>sr4) then write('Лучший - 1 ученик');
    if(sr2>sr1) and (sr2>sr3) and (sr2>sr4) then write('Лучший - 2 ученик');
    if(sr3>sr1) and (sr3>sr2) and (sr3>sr4) then write('Лучший - 3 ученик');
    if(sr4>sr1) and (sr4>sr1) and (sr4>sr3) then write('Лучший - 4 ученик');
end.

var a,b,c,d: array [0..100] of Integer;
    i,j,l,r:Byte;
    n,m,p,q:Integer;
    s1,s2,s3,s4: Integer;
    sr1,sr2,sr3,sr4,sr5:Real;
begin
readln(n,m,p,q);
s1:=0;s2:=0;s3:=0;s4:=0;
for i:=0 to n do
 begin
  readln(a[i]);
  s1:=s1+a[i];
end;
sr1:=s1/n;
for i:=0 to m do
 begin
  readln(b[i]);
  s2:=s2+b[i];
 end;
sr2:=s2/m;
for i:=0 to p do
 begin
  readln(c[i]);
  s3:=s3+c[i];
 end;
sr3:=s3/p;
for i:=0 to q do
 begin
  readln(d[i]);
  s4:=s4+d[i];
 end;
sr4:=s4/q;
writeln(sr1:0:2);
writeln(sr2:0:2);
writeln(sr3:0:2);
writeln(sr4:0:2);
if(sr1>sr2) and (sr1>sr3) and (sr1>sr4) then write('Лучший - 1 ученик');
if(sr2>sr1) and (sr2>sr3) and (sr2>sr4) then write('Лучший - 2 ученик');
if(sr3>sr1) and (sr3>sr2) and (sr3>sr4) then write('Лучший - 3 ученик');
if(sr4>sr1) and (sr4>sr1) and (sr4>sr3) then write('Лучший - 4 ученик');
end.