Массивы. Определить, в каком массиве больше сумма элементов

program by_yurik;
uses crt;
var a,b: array[1..3] of integer;
    i,v,p,s1,s2: integer;
begin
  writeln('÷èñëà 1 ìàññèâà :');
  for i:=1 to 3 do
    begin
      read(v); a[i]:=v;
    end;
  writeln('÷èñëà 2 ìàññèâà :');
  for i:=1 to 3 do
    begin
      read(p); b[i]:=p;
    end;
 
end.

program by_yurik;
uses crt;
var a,b: array[1..3] of integer;
    i,v,p,s1,s2: integer;
begin
  writeln('÷èñëà 1 ìàññèâà :');
  for i:=1 to 3 do
    begin
      read(v); a[i]:=v;
    end;
  writeln('÷èñëà 2 ìàññèâà :');
  for i:=1 to 3 do
    begin
      read(p); b[i]:=p;
    end;
   s1:=Sum(a[i]);
   s2:=Sum(b[i]);
   if s1>s2 then
     for i:=1 to 3 do
       write(a[i]:4);
     else
     for i:=1 to 3 do
       write(b[i]:4);
end.

program z;
uses crt;
var a,b:array [1..3] of integer;
procedure vvod(var a1:array [1..3] of integer);
     var i:integer;
     begin
          for i:=1 to 3 do
              begin
                   write('[',i,']=');
                   readln(a1[i]);
              end;
     end;
procedure vuvod(a1:array [1..3] of integer);
     var i:integer;
     begin
          for i:=1 to 3 do
              write(a1[i],' ');
          writeln;
     end;
function summa(a1:array [1..3] of integer):integer;
     var i,s:integer;
     begin
          s:=0;
          for i:=1 to 3 do
              summa:=s+(a1[i]);
     end;
begin
     clrscr;
     writeln('Ââîä ïåðâîãî ìàññèâà');
     vvod(a);
     writeln('Ââîä âòîðîãî ìàññèâà');
     vvod(b);
     clrscr;
     write('Ìàññèâ A: ');
     vuvod(a);
     write('Ìàññèâ Â: ');
     vuvod(b);
     if summa(a)>summa(b)
        then
            writeln('Ñóììà ýëåìåíòîâ ìàññèâà À áîëüøå, ÷åì ñóììà ýëåìåíòîâ ìàññèâà Â')
     else if summa(a)<summa(b)
          then
              writeln('Ñóììà ýëåìåíòîâ ìàññèâà À ìåíüøå, ÷åì ñóììà ýëåìåíòîâ ìàññèâà Â')
     else
         writeln('Ñóììà ýëåìåíòîâ ìàññèâà À ðàâíà ñóììå ýëåìåíòîâ ìàññèâà Â');
end.

uses CRT;
var
a,b:array[1..4]of integer;
i:integer;
begin
for i:=1 to 3 do
begin 
read(a[i]);
a[4]:=a[4]+a[i];
end;
for i:=1 to 3 do
begin 
read(b[i]);
b[4]:=b[4]+a[i];
end;
if a[4]>b[4] then
writeln('In the first')
else writeln('in the second');
end.