Проанализировать результаты опроса и определить среднюю желаемую зарплату

uses crt;
var k,sum:real;
    i:integer;
begin
 
Repeat
      Writeln('Êàêàÿ çàðïëàòà, ïî-âàøåìó ìíåíèþ, ñîîòâåòñòâóåò âàøåé ðàáîòå?');
      Read(k);
      If k < 0 then break;
      Sum:=Sum+k;
      inc(i);
Until (1>2);
 
Writeln('Ñðåäíÿÿ æåëàåìàÿ ïëàòà ðàâíà ', sum / i);
end.

uses crt;
var k,sum:real;
    i:integer;
begin
clrscr;
writeln('Введите данные опроса, окончание ввода отрицательное число:');
i:=0;
sum:=0;
Repeat
      Writeln('Какая зарплата, по-вашему мнению, соответствует вашей работе?');
      Readln(k);
      Sum:=Sum+k;
      inc(i);
Until k<0;
Writeln('Средняя желаемая плата равна ', sum / i);
readln
end.

var x, i, n : integer; avg : real;
begin
   writeln('Сколько людей опросили?');
   write('Количество = '); readln(n);
   for i := 1 to n do begin
      write(i, '-ый человек захотел зарплату = ');
      readln(x);
      avg := avg + x; {вычисление средней зарплаты}
   end;
   avg := avg / n; {нахождение средней зарплаты по формуле}
   writeln('Ответ: люди хотят много денег, а получат мало, а не ', avg : 0 : 4, '!')
end.