Oui mais comment tu veux faire en mode graphique ?
avec les fonctions graphiques de base ?
Alors un truc dans ce genre vite fait :
ajouter graph dans les USES ,
var compteur : integer;
begin
GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode, 'ton pass vers bgi');
Setcolor(red);
for compteur :=1 to 5 do
begin
Bar(100+compteur*12+5, 380, 110+compteur*12, 320);
Circle(103+compteur*12+5, 309, 5);
end;
Readln;
CloseGraph;
Si tu veux mieux alors il faudra peut etre passer par les sprites,
mais la j'ai plus rien dispo en pascal.