[Suche]Hilfe bei Turbo Pascal Lottozahl Generator

[crisbinfranke]

Hallo liebe Delphi-Praxis User.
Ich brauche eure Hilfe.
In der Schule arbeiten wir momentan mit dem Programm "Turbo Pascal" und irgendwie werden wir nicht so richtig Freunde.
Heute in der Schule sollten wir dann einen "Lotto Rechner" schreiben.
Unser Lehrer schrieb uns das meiste an der Tafel vor und wir durften abschreiben.
Mein eigentliches Problem ist nun, dass ich zuhause weiter arbeiten soll und mein Vista 64 Bit das TP nicht mag.
Zur nächsten Woche sollen wir die ausgegebenen Zahlen sortieren lassen.
Hierzu habe ich auch schon diverse Verfahren gefunden. Unser Lehrer riet uns zum "Bubble Sort".
Hierzu fand ich hier in der Code-Library diesen Link: http://www.delphipraxis.net/internal...ect.php?t=6237
Nun weiß ich jedoch nicht, wie ich das 1. in Turbo Pascal übersetzen kann und 2. testen kann ich es leider auch nicht, da es bei mir nicht funktioniert.
Hier mal den Source aus der Schule:

Code:

program lottozahlen;
uses crt;
var lotto:array [1..6] of integer;
    i:integer;

procedure ziehung;
Begin

  for i:=1 to 6 do
  Begin
  lotto[i]:=1+random(49); {1+0-48}
  End;
End;

Begin
Textbackground(Black);Textcolor(white);
  clrscr;
  randomize;
  ziehung;
  if (lotto[1]=lotto[2]) or (lotto[1]=lotto[3]) or (lotto[1]=lotto[4])
  or (lotto[1]=lotto[5]) or (lotto[1]=lotto[6]) or (lotto[2]=lotto[3])
  or (lotto[2]=lotto[4]) or (lotto[1]=lotto[5]) or (lotto[2]=lotto[6])
  or (lotto[3]=lotto[4]) or (lotto[3]=lotto[5]) or (lotto[3]=lotto[6])
  or (lotto[4]=lotto[5]) or (lotto[4]=lotto[6]) or (lotto[5]=lotto[6])
  then ziehung
  else          {Vor else nie ein Simikolon :-)}
Begin
  gotoxy(28,25);

  for i:=1 to 6 do
  Begin
  write(lotto[i],'  ');
  End;
End;
  readkey;
End.

Ich hoffe, dass jemand von euch mir weiterhelfen kann. In 1-2 Wochen werden wir dann hoffentlich mit Delphi anfangen, denn das läuft Flüssig auf meinem Pc .

MfG,
Christian