Pascal házi HELP!

Oké!

Ezt a forráskódot beírtam a Turbo Pascal 7.0 és nem megy!
Miért?Mi a hiba benne?

Program Akasztofa;
Uses Crt;
Const JoKarakterek: String = ('abcdefghijklmnopqrstuvwxyz');
Var FIn: Text;
Darab, Valasztas: LongInt;
Szo, TagoltSzo, EredmenySzo: String;
Ciklus: Byte;
Key: Char;
Begin
{ File megnyitasa }
Assign(FIn, 'be.txt');
Reset(FIn);

{ Megszamoljuk hany szo van a file-ban }
Darab:= 0;
While Not Eof(FIn) Do
Begin
Inc(Darab);
ReadLn(FIn, Szo);
End;

{ A file mutatot elore allitjuk }
Reset(FIn);

{ Veletlenszeruen kivalasztunk egy szot }
Randomize;
Valasztas:= Random(Darab) + 1;

{ Beolvassuk a kivalasztott szot }
Darab:= 0;
While Valasztas Darab Do
Begin
ReadLn(FIn, Szo);
Inc(Darab);
End;

{ File lezarasa }
Close(Fin);

{ Szokozoket szurunk a szoba }
TagoltSzo:= '';
EredmenySzo:= '';
For Ciklus:= 1 To Length(Szo) Do
Begin
TagoltSzo:= TagoltSzo + Copy(Szo, Ciklus, 1) + ' ';
EredmenySzo:= EredmenySzo + '_' + ' ';
End;

{ Jatek inditasa }
WriteLn('Összesen 5 rontásod van.');
Darab:= 5;
Repeat
{ Kiirjuk az eddigi eredmenyt }
WriteLn('(', Darab, ') ', EredmenySzo);

{ Billentyu leutesre varakozas }
Repeat