Помогите с Паскалем в ИКТ 9 класс

программа написана на Turbo Pascal 7.0

uses crt;
var k, summa, a: integer;
begin
clrscr;
writeln ('Input number 0 for EXIT');
summa:=0;
k:=-1;
writeln ('Вводите числа');
repeat
readln (a);
summa:=summa+a;
inc(k);
until a=0;
writeln ('среднее арифметическое = ', summa / k:5:3);
readln;
end.

примени эту программу и переделай ее
Program pr1;
uses crt;
var
a,s:integer;
begin
s:=0;
repeat
write('a= '); readln(a);
if a<0 then s:=s+a;
until a=0;
writeln('s= ',s);
end.

program prg1;
var
counter : integer;
sum : integer;
begin
writeln('Вводите числа: ');
while (true) do
begin
var current : integer;
readln(current);
if (current = 0) then break
else
begin
sum += current;
counter += 1;
end;
end;
writeln('Среднее арифметическое: ', sum / counter);
end.

Создай массив чисел, введи все числа, проверяя их на значение нуля. Потом найди их сумму, и раздели на кол-во.

Сколько чисел в последовательности?

Не вздумай платить «Зотикову» - который тебе ответил, будет у тебя деньги выпрашивать за решения– кидает тут всех тупо на бабки! Сидит на даче безработный старпёр беззубый импотент С НЕМЫТЫМИ САЛЬНЫМИ ВОЛОСАМИ и кидает студентов!!! Моего друга кинул на 320 руб – денег не вернул!!! У этого мошенника Зотикова – есть еще страницы - ИХ УЖЕ ЗАБЛОКИРОВАЛИ ЗА МОШЕННИЧЕСТВО - он с трёх страниц кидает одновременно!!! Имя сменил только.