нужно СРОЧНО!!!!!!!!!!! ЗАДАЧА В ПАСКАЛЕ. измените программу так чтобы она вычисляла среднее арифметическое введенных чисел. признак окончания ввода 1000.P.S. с помощью оператора while

program noname;uses crt;vara:array[1..1000] of integer;i,k:integer;s:real;beginclrscr;i:=1;k:=0;write('vvedi chislo '); readln(a[1]);while a[i]<>1000 do begink:=k+a[i];i:=i+1;write('vvedi chislo '); readln(a[i]);end;i:=i-1;s:=k/i;writeln(s);readkey;end.