Значение было недопустимо малым или недопустимо большим для знака

procedure ReadProgramm(NameInFile:String);
 var Str:String;
     i:integer;
     ch:char;
     LA:boolean;
 begin
  Assign(FIn,NameInFile);
  Reset(FIn);
  Str:='';
  While Not EOF(FIn) do
   begin
    inc(NStr);
    i:=1;
    Str:='';
    ch:=' ';
    while (ch<>';')and (ch<>'.') do
     begin
      Read(FIn,ch);
      if (ch<>#10) and (ch<>#13) then
       Str:=Str+ch;
      if ch=#26 then
       begin
        Writeln(NStr,' Пунктуационная ошибка');
        Readln; 
        Halt;
       end;
      inc(i);
     end;
    Read(Fin,ch);
    Read(Fin,ch);
    if Str='конец.'then
     begin
      LA:=False;
      Writeln(FOut);
      Write(FOut,'     ','END');
     end;
    if SA then SintAn(Str);
    if SA then TranslProgr(Str);
    if Pos(MasLex[1],Str)<>0 then
     begin
      Name(Pos(MasLex[1],Str),Str);
     end;
    if Pos(MasLex[10],Str)<>0 then
     begin
      PTable(Pos(MasLex[10],Str),Str);
      LA:=True;
     end;
   end;
  Close(FIn);
 end;

procedure ReadProgramm(NameInFile:String);
begin
  var all := ReadAllText(NameInFile);
  // вот так
  foreach var c in all do
    Print(Format(' {0} - {1} ', c, ord(c)));
  WriteLn;
  WriteLn('~'*100);
  // или вот так
  for var i := 1 to all.Length do
    begin
      var c := all[i];
      Print(Format(' {0} - {1} ', c, ord(c)));
    end;
  WriteLn;
end;