Tohle je tvoje nacitani drahy:

  repeat
    readln(textovy_soubor,ln);
    for i := 1 to length(ln) do begin
     case ln[i] of
     '5': pole[j,i] := #084;
     '6': pole[j,i] := #219;
     '7': pole[j,i] := #065;

     '8': pole[j,i] := #88;   //cil
     '4': pole[j,i] := #126;  //bonus
     '3': pole[j,i] := #43; //palivo
     '1': pole[j,i] := #178;
     '2': pole[j,i] := #220;
     '0': pole[j,i] := #32;
     else
     pole[j,i] := ln[i];
     end;
    end;
    inc(j);
  until eof(textovy_soubor);

Vysvetli mi, kde tam prosim nactes prvnich 50? Podle mne nikde. Ctes do konce souboru a pri 51 nacteni to zhuci, protoze pole je 1..50.