Verhältnis Gleichung

[widowmaker2k7]

Hallo liebe Delphipraxis-Gemeinde

Ich steh vor einem Problem, wo ich mir seit 2 Tagen ein wenig den Kopf zerbreche.

wir müssen für die schule ein Prog machen das 2 Zufallszahlen zwischen 0 und 100 ausgibt und prüft ob sie über 50 liegen oder nicht.
is ja bis dahin ganz einfach

wir sind grade dabei die verschachtelung mit der for schleife zu machen und wir müssen in der schleife ein kleines diagramm machen dass die beiden zufallszahlen graphisch darstellt.
aus chars. also ich habe | genommen neben dem Y die taste

hier der quelltext:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a, b, zahl1, zahl2: integer;
    zeichen:char;
    diagramm1, diagramm2: string[100];
begin
  randomize;
  zeichen:='|';
  zahl1 := random(100)+1;
  zahl2 := random(100)+1;
  label3.Caption:=inttostr(zahl1);
  label4.caption:=inttostr(zahl2);
  if zahl1 > 50 then
    label5.caption:=('ja')
  else
    label5.caption:=('nein');
  if zahl2 > 50 then
    label6.caption:=('ja')
  else
    label6.caption:=('nein');
  for a:= 1 to zahl1 do
    diagramm1 := diagramm1+zeichen;
  label7.caption:=(diagramm1);
  for b:= 1 to zahl2 do
    diagramm2 := diagramm2+zeichen;
  label8.caption:=(diagramm2);
end;

end.

im anhang das bild dazu.

Das Problem liegt darin

wir müssen es so machen, dass der balken für die größere Zahl immer die ganze reihe füllt und die kleinere zahl immer prozentual zur ersten angezeigt wird
das heißt wenn die kleinere zahl 30 groß is, dass keine 30 zeichen kommen, sondern nur im verhältnis zur größeren.

ich könnte das mit gauge lösen und immer den maxwert ändern aber so sollen wir es nicht machen.
wie könnte ich das in das programm einbinden, kann ich sagen die eine zahl ist 100% oder sowas??

bin am verzweifeln

danke schonmal

Mfg widowmaker