Верный ли код для записи из файла в массив посимвольно?

Uses CRT, GrahpABC; Var { Ниже массивы для проверки (словари) } StaticOperatorsDictionary:array [0..100] of string; { Ниже массивы для записи и обработки данных } Input:array[0..99999999] of char; StringVariables:array of string; //все созданные переменные IntegerVariables:array of int64; //все созданные переменные IntegerArrays:array of int64; //все созданные массивы StringArrays:array of string; //все созданные массивы LabelsArray:array of string; //все созданные массивы FileName:Text; LinkedToFileVar:string; FilePosition:int64; Begin {создание словарей} StaticOperatorsDictionary[0]:='add'; StaticOperatorsDictionary[1]:='create'; StaticOperatorsDictionary[2]:='delete'; StaticOperatorsDictionary[3]:='copy'; StaticOperatorsDictionary[4]:='in'; StaticOperatorsDictionary[5]:='number'; StaticOperatorsDictionary[6]:='of'; StaticOperatorsDictionary[8]:='element; StaticOperatorsDictionary[9]:='variable'; StaticOperatorsDictionary[10]:='program'; StaticOperatorsDictionary[11]:='part'; StaticOperatorsDictionary[12]:='random; StaticOperatorsDictionary[13]:='with'; StaticOperatorsDictionary[14]:='if'; StaticOperatorsDictionary[15]:='loop'; StaticOperatorsDictionary[16]:='run'; StaticOperatorsDictionary[17]:='for'; StaticOperatorsDictionary[18]:='value'; {все, со словарями кончено} System.Console.WriteLine('Введите имя файла для его запуска:'); Read(FileName); Assign(LinkedToFileVar,FileName); While (not EOF) do Begin Read(LinkedToFileVar,FilePosition); FilePosition:=FilePosition+1; End; End.