повторение цикла. нужно вставить вывод,чтобы выводил промежуточный вариант

program qq;
var
m1,m2,p1,p2,K:integer;
sum, ost:integer;
begin
sum:=0;
begin 
writeln( 'K: ');
readln(K);
writeln( 'm1: ');
readln(m1);
writeln( 'm2: ');
readln(m2);
writeln( 'p1: ');
readln(p1);
writeln( 'p2: ');
readln(p2);
ost:=K;
 
if(K=0)then
begin
writeln('ERROR');
end
else
begin
while(ost<>0) do 
begin
if(m1+m2<=K) then
begin
sum:=p1*m1+p2*m2;
writeln('Cost: ' ,sum, 'Izdeliy M1:',m1,'po cene: ',p1,' Izdeliy M2:',m2,' po cene ', p2);
ost:=0;
end
else
begin
if(p1>p2) then
begin
if(m1<K) then
begin
sum:=p1*m1+(K-m1)*p2;
writeln('Cost: ' ,sum, ' Izdeliy M1:',m1,' po cene: ',p1,' Izdeliy M2:',K-m1,' po cene ', p2);
ost:=0;
 
end
else if(m1>=K) then
begin 
sum:=p1*K;
writeln('Cost: ' ,sum, 'Izdeliy M1:',K,' po cene: ',p1,' Izdeliy M2:',0,' po cene ', p2);
ost:=0;
end
end
else if(p2>=p1) then
begin
if(m2<K) then
begin
sum+=p2*m2+(K-m2)*p1;
writeln('Cost: ' ,sum, ' Izdeliy M1:',K-m2,' po cene: ',p1,' Izdeliy M2:',m2,' po cene ', p2);
ost:=0;
end
else if(m2>=K) then
begin
sum:=p2*K;
writeln('Cost: ' ,sum, 'Izdeliy M1:',0,'po cene: ',p1,' Izdeliy M2:',K,' po cene ', p2);
ost:=0;
end;
end;
end;
end;
end;
end;
readln;
end.