Strichmenchen soll laufen

[Maxxer]

Nabend,

ich habe hier ein problem geschildert(ganz unten), doch niemand antwortet !

Heute habe ich versucht ein Strichmenchen zu programmieren das läuft,
jedoch habe ich schon Probleme mit dem Strich (vom Kopf nach unten).
Immer wen sich das dingen bewegen soll dreht sich der Strich mit !
Ich habe es dann mit dem Befehl "break" versucht doch dann wollte nicht mal
der Kopf seine Position ändern !

Ich habe dann dem Mittelstrich eine eigene Schleife verpasst,
doch irgendwie wollte das nicht so richtig !

Kann mir einer den code für den Mittelstrich geben den ich bin echt am verzwefeln !
Was mache ich falsch ?
Ich hänge vorsichthalber mSum an.

Mein Code:

Delphi-Quellcode:

program Menchen;


uses
  mSum, Windows;

var
  derBildschirm : Bildschirm;
  meinStift     : Stift;
  meineMaus     : Maus;
  Koordinaten   : Integer;

begin
  derBildschirm := Bildschirm.init;
  meinStift     := Stift.init;
  meineMaus     := Maus.init;


for Koordinaten:= 200 to 300  do
  begin
with meinstift do
  begin

  hoch;
  bewegeBis(Koordinaten,400);
  runter;
  zeichneKreis(25);
  hoch;
  bewegeBis(Koordinaten,425);
  dreheUm(-90);
  runter;
  bewegeUm(75);
  warte(10);


  repeat
until meineMaus.istGedrueckt;

with derBildschirm do
     begin
     loescheAlles;
   end;
   end;
  end;



  meinStift.gibFrei;
  derBildschirm.gibFrei;
  meineMaus.gibFrei;
end.