Преобразовать из while в repeat … until

var x,f,s,p:real;
k:integer;
begin s:=0;
k:=0;
p:=1;
x:=-5;
while x<=5.0 do begin { вычисляем f } if x<0
then f:=sqr(ln(abs(x))) else if x>0
then f:=sin(sqr(x)) else f:=0; { анализируем вычисленное значение f }
if f>0 then begin s:=s+f;{ сумма}
k:=k+1;{ количество }
end;
if f<>0 then p:=p*f;{ произведение }
x:=x+0.5;{ переходим к следующей точке для вычисления значения функции }
end;{ цикл закончен }
s:=s/k;{теперь в s - искомое среднее} { 1 }
writeln ('Среднее положительных =',s:10:6);
writeln ('Произведение ненулевых=',p:10:6);
readln;
end.

var x, f, s, p: real;
    k: integer;
begin
  s := 0;
  k := 0;
  p := 1;
  x := -5;
  repeat
    { вычисляем f }
    if x < 0
      then f := sqr(ln(abs(x)))
      else if x > 0
        then f := sin(sqr(x))
        else f:=0;
    { анализируем вычисленное значение f }
    if f > 0
      then begin
        s := s + f; { сумма}
        inc(k) { количество }
      end;
    if f <> 0 then p := p * f; { произведение }
    x := x + 0.5; { переходим к следующей точке для вычисления значения функции }
  until x > 5; { цикл закончен }
  if k > 0
    then begin
      s := s / k;{теперь в s - искомое среднее}
      writeln('Среднее положительных = ', s:10:6)
    end
    else writeln('Нет положительных')
  writeln ('Произведение ненулевых = ', p:10:6);
  readln
end.