Вірний чи код для запису з файлу в масив посимвольний?

// Нет.

// Для запису в файл використовується процедура write (writeln) приблизно ось так:

// ------------------------------------------------ ------------------------------­----------------

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;

i: integer;

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 ( 'Введіть ім'я файлу для його запуску:');

Assign (LinkedToFileVar, FileName);

rewrite (FileName); // Відкриваємо файл для додавання. УВАГА - ПІСЛЯ ЦІЄЇ КОМАНДИ - Фото очищає!

fot i: = 0 to 18 do

Begin

writeln (LinkedToFileVar, StaticOperatorsDictionary [i]);

End;

Close (FileName) // Файл записується на диск. не забувати цю команду, так як після виконання програми файл може виявитися порожнім

End.