[РЕШЕНО] Как убрать цикл for, оставив тело

[Kosta Riko]

Всем привет, результат программы появляется в консольном окне, а оно, как известно, не резиновое. И хотелось, что б отрицательный результат вообще не появлялся. Знаю только, что надо убирать цикл for и оставлять тело, но как практически это сделать не пойму. Убил 3 часа, вспотел, поседел и пришёл за помощью. Буду очень признателен.

uses
   CRT;
var
   dividend: integer;
   divisor: integer;
   sNumber: string;
begin
   CRT.SetWindowTitle('ДЕЛИМОСТЬ ЧИСЕЛ ');
   while (true) do
   begin
      repeat
         TextColor(LightMagenta);         
         Writeln('Введите делимое:  ');
         TextColor(LightBlue);
         dividend:= ReadInteger();
         if (dividend = 0) then exit;
      until (dividend > 1);
      repeat
         TextColor(LightMagenta);
         Writeln('Введите делитель: ');
         TextColor(LightBlue);
         divisor:= ReadInteger();
         if (divisor = 0) then exit;
      until (divisor > 1) ;
      Writeln();
      for i: integer:= 2 to divisor do
      begin
         if (dividend mod i = 0) then
         begin
            TextColor(CRT.LightGreen);
            sNumber:= 'Число делится на:        ';
         end
         else
         begin 
            TextColor(CRT.LightRed);
            sNumber:= 'Число не делится на:     ';
         end;   
      if (i < 10) then 
         sNumber += '';
      Writeln(sNumber + i. ToString());   
         
            
      end;
      Writeln();
   
   end;  
end.

[evg_m]

        if (dividend mod i = 0) then
         begin
            TextColor(CRT.LightGreen);
            sNumber:= 'Число делится на:        ';
         end
         else
         begin 
            TextColor(CRT.LightRed);
            sNumber:= 'Число не делится на:     ';
         end;   
      if (i < 10) then 
         sNumber += '';
      Writeln(sNumber + i. ToString());   
end;

[Kosta Riko]

Спасибо большое, а то я сам себя запутал)))