Помогите переделать задачу

[Tosia]

Помогите переделать задачу

вводятся 10 чисел. Найти сумму положительных чисел и минимальный среди отрицательных (через repeat until)

program gg;
uses crt;
var i,j,k,min,sum:integer;
begin
clrskr;
sum:=0;
for i:=1 to 10 do begin
read(k);
if k>0 then sum:=sum+k
else
if k<min then min:=k;
end;
writeln(sum);
writeln(min);
readkey;
end.

 

[AlexZir]

program gg;
uses crt;
var i,j,k,min,sum:integer;
begin
clrscr;
sum:=0;
i:=1;
repeat
read(k);
if k>0 then sum:=sum+k
else
if k<min then min:=k;
inc(i);
until i>10;
writeln(sum);
writeln(min);
readkey;
end.