[Trazzy]

Проблема решена! Нашел в другом разделе (был не внимателен). Тема закрыта!
Нужно было просто перевести int в real.

(код ↓)

program gauge_sample;

var gauge_w, gauge_h: integer;

procedure draw_gauge(progress: real);
var p1, p2, p3: real; // <<=1=
begin
  setcolor(160,160,160);
  drawrect(5, 5, gauge_w+3, gauge_h+3);
  setcolor(90,90,90);
  p1:=progress; p2:=gauge_w; p3:=100.0; // <<=2=
  fillrect(7, 7, trunc(p1*(p2/p3)), gauge_h); // <<=3=
end;

begin
  gauge_w:=getWidth-14;
  gauge_h:=10;
  draw_gauge(50);
  repaint;
  repeat until GetKeyClicked=KE_STAR;
end.