Вычислить сумму элементов массива до первого нуля

type Tarr=array[1..8] of real;
....
function sum(a:Tarr):real; var i:integer;r:real;
begin
 r:=0;
 for i:=1 to 8 do if a[i]<>0 then r:=r+a[i] else begin sum:=r; exit; end;
end;

var a,b:TArr; i:integer;
begin
 for i:=1 to 8 do readln(a[i]); Writeln(sum(a));
 for i:=1 to 8 do readln(b[i]); Writeln(sum(b));
 readln;
end;

var
  a: array [1..8] of Integer;
  s, i, k: Integer;
begin
  for k:=1 to 2 do begin
    Write('Введите массив ',k);
    for i:=Low(a) to High(a) do Read(a[i]);
    s:=0; i:=1; while a[i]<>0 do s:=s+a[i]; Inc(i); end;
    WriteLn('Сумма до 0: ',s);
  end;
end.

var a, i, s: Integer;
begin
  repeat Read(a); s:=s+a; until a=0;
  WriteLn(s);
end.

program dfgg;
var i, s: Integer;
a:array[1..8] of integer;
begin
writeln('введите 8 чисел');
for i:=1 to 8 do
read(a[i]);
s:=0;
for i:=1 to 8 do
if a[i]<>0 then s:=a[i];
writeln('сумма=',s);
readln;
readln;
end.

program dfgg;
var i, s: Integer;
a:array[1..8] of integer;
begin
writeln('введите 8 чисел');
for i:=1 to 8 do
read(a[i]);
s:=0;
for i:=1 to 8 do
if a[i]=0 then break else s:=s+a[i];
writeln('сумма=',s);
readln;
readln;
end.