Последовательно вводятся исходные данные-целые числа.Последовательность оканчивается 0.Вывести сумму всех чисел и предпоследние число — Pascal(Паскаль)

Program Lab_3;
uses crt;
var x,u,sum,y: integer;
begin
clrscr;
  u:=0;
  y:=0;
  repeat
         writeln('Vvedite Chislo');readln(x);
        sum:=sum+x;
         if x<>0 then u:=y;
         if x<>0 then y:=x;
 
         until x=0;
                        writeln('predposlednie 4islo =',u);
                       writeln('summa =',sum);
  readln;
end.

Program Lab_3;
uses crt;
var x,u,s,y: integer;
begin
textbackground(0);
textcolor(15);
clrscr;
writeln('Vvedite chisla, okonchanie 0:');
readln(y);
s:=y;
repeat
x:=y;
readln(y);
s:=s+y;
until y=0;
writeln('predposlednie 4islo =',x);
writeln('summa =',s);
readln;
end.

Program Lab_3;
uses crt;
var x,y,z,s: integer;
begin
textbackground(0);
textcolor(15);
clrscr;
writeln('Vvedite chisla, okonchanie 0:');
s:=0;
readln(x);
if x=0 then
 begin
  write('Введен только 0');
  readln;
  exit;
 end;
s:=x;
readln(y);
if y=0 then
 begin
  writeln('Введено только 1 число');
  write('Сумма=',s);
  readln;
  exit;
 end;
s:=s+y;
repeat
  z:=x;
  x:=y;
  readln(y);
  s:=s+y;
until y=0;
writeln('predposlednie 4islo =',z);
writeln('summa =',s);
readln;
end.