while do

[Руся93]

Подскажите как эту программу переделать через цикл while do

 program g;
uses crt;
var i, j, sum, k: integer;
  pr : real;
begin
  clrscr;
  sum := 0;
  pr := 1;
  j := 0;
  for i := 1 to 10 do
  begin
    read(k);
    if k >= 0 then
    begin
      sum := sum + k;
      j := j + 1;
    end
    else
      pr := pr * k;
  end;
  if j=0 then WriteLn('Положительных чисел нет!')
  else WriteLn('Среднеарифметическое положительных: ', (sum/j):0:3);
  writeln('Произведение отрицательных: ', pr:0:0);
  readkey;
end.

[Вадим Мошев]

Всё писать не буду, только основное:

i:=1;

while i <= 10 do

  begin
    read(k);
    if k >= 0 then
    begin
      sum := sum + k;
      j := j + 1;
    end
    else
      pr := pr * k;
	inc(i);
  end;

[Руся93]

Вадим Мошев;891780]спасибо