Procedure SetChLine;
  begin
   For i := 1 to 10 do
    ChLine[i] := '-';
  end;

has to be:

  Procedure SetChLine;
  begin
   For i := 1 to ChLgt do
    ChLine[i] := '-';
  end;

------ SeaBert -------------
| E-Mail: jjt...@cs.ruu.nl |
------ C-Bert --------------