Помогите решить срочно пожалуйста
Задача в pascal Цикл с условием
Первая задача:
S=1+2+3+4+.....+
вторая задача:
С клавиатуры вводятся целые числа 0 на конце,средние значение положительных чисел.

Задание 1
uses crt;
var s,n,i:integer;
begin
     write('Введите число больше 1: ');
     readln(n);
     s:=0;
     for i:=1 to n do
         s:=s+i;
     writeln(s);
end.

Задание 2
uses crt;
var i,s,k:integer;
begin
     writeln('Вводите числа. 0 - конец последовательности');
     s:=0;
     k:=0;
     repeat
           readln(i);
           if i>0 then begin
              s:=s+i;
              inc(k);
              end;
           until i=0;
           writeln(s/k);
end.

1)
var
    i, s, n: integer;

begin
    read(n);
    s := 0;
    i := 0;
    repeat
        i := i + 1;
        s := s + i;
    until i >= n;
   
    writeln(s);
end.
2)
var
    i, s, k: integer;

begin
    writeln('Введитепоследовательность чисел. Для окончания введите ноль');
    s := 0;
    k := 0;
    repeat
        readln(i);
        if i > 0 then begin
            s := s + i;
            k := k + 1;
        end;
    until i = 0;
   
    writeln(s / k);
end.