Можно ли сократить код?

uses
  Crt;
var
  i, m, n, p, t1, t2, t3: integer;
  x, y, x1, x2, x3, y1, y2, y3: real;
 
begin
  ClrScr;
  t3 := 80;
  i := 1;
  
  while y < 0.5 do
  begin
    x := i * (4 / 79) - (4 / 79);//определение границы первого куска
    y := (1 - exp(-x));
    i := i + 1;
  end;
  t1 := i - 2;
  while y < 0.8 do
  begin
    x := i * (4 / 79) - (4 / 79);//определение границы второго куска
    y := (1 - exp(-x));
    i := i + 1;
  end;
  t2 := i - 2;
  
  for m := 1 to (t1) do
  begin
    x1 := m * (4 / 79) - (4 / 79);//первый кусок
    y1 := 24 - (1 - exp(-x1)) * 22;
    
    gotoXY(m, trunc(y1));
    TextColor(Red);
    write('*');
  end;
  for n := (t1 + 1) to t2 do
  begin
    x2 := n * (4 / 79) - (4 / 79);//второй кусок
    y2 := 24 - (1 - exp(-x2)) * 22;
    
    gotoXY(n, trunc(y2));
    TextColor(White);
    write('*');
  end;
  
  for p := (t2 + 1) to t3 do
  begin
    x3 := p * (4 / 79) - (4 / 79);//третий кусок
    y3 := 24 - (1 - exp(-x3)) * 22;
    
    gotoXY(p, trunc(y3));
    TextColor(Yellow);
    write('*');
  end;
  gotoXY(1, 25)
end.

uses
  Crt;
 
const
  k  = 4 / 79;
  t3 = 80;
 
function f(x : Real) := 1-exp(-x);
 
function tt(p : Real; var i : Integer) : Integer;
begin
  repeat i += 1; until f(i * k) >= p;
  Result := i - 3;
end;
 
procedure star(clr, L, R : Integer);
begin
  TextColor(clr);
  for var m := L to R do
    begin
      gotoXY(m, trunc(24 - f(m * k) * 22));
      write('*');
    end;
end;
 
begin
  ClrScr;
  
  var i := 0;
  var t1 := tt(0.5, i); //определение границы первого куска
  var t2 := tt(0.8, i); //определение границы второго куска
  star(Red   , 0 , t1-1);
  star(White , t1, t2-1);
  star(Yellow, t2, t3  );
 
  gotoXY(1, 25)
end.