Добавить в существующий код оператор цикла WHILE

program adc;
uses crt;
Var b, k, t: Integer;
Begin
For b:=0 to 10 do
For k:=0 to 20 do
For t:=0 to 200 do
If (10*b+5*k+0.5*t <= 100) and (b+k+t=100) then writeln('бык-',b, ' корова-',k, ' теленок-',t)
end.

program adc;
uses crt;
Var b, k, t: Integer;
Begin
 b:=0;
 while b<=10 do
  begin
  k:=0;
  while k<=20 do
   begin
    t:=0;
    while t<=200 do
     begin
      If (10*b+5*k+0.5*t <= 100) and (b+k+t=100) then writeln('бык-',b, ' корова-',k, ' теленок-',t);
      inc(t)
     end;
    inc(k)
   end;
  inc(b)
 end 
end.

while (условие) do
begin
  действие
end;

program adc;
uses crt;
Var b, k, t: Integer; 
Begin {Начинает работать 1 бегин}      
b:=0; while b<=100 do {Задается b и условие b меньше или равно 100 }
begin {Начинает работать 2 бегин}
k:=0; while k<=100 do {Задается k и условие k меньше или равно 100 }
begin {Начинает работать 3 бегин}
t:=0; while t<=100 do {Задается t и условие t меньше или равно 100 }
begin {Начинает работать 4 бегин}
If (10*b+5*k+0.5*t <= 100) and (b+k+t=100) then writeln('бык-',b, ' корова-',k, ' теленок-',t); {Формала по которой вычесляется вся байда}
t:=t+1 {не понял}
end; {конец 4 бегина}
k:=k+1 {не понял}
end; {конец 3 бегина}
b:=b+1 {не понял}
end; {конец 2 бегина}
end. {конец}