Огромный привет Gans! Ну, вот, приехал с командировки и третий день пытаюсь разнести по циклам работу с файлами. Получается все что угодно, только не то что нужно... Может кто подскажет, как правильно и грамотно это сделать?
Какие операторы работы с файлами из SysLibFile требуют больше времени для завершения своих действий, а какие можно писать в программе подряд? Привожу часть кода из ARC_Y_10_04_17 который нужно разнести по циклам.

sizAR := SysFileGetSize('arc.txt'); (*Получаем размер файла в байтах*)
IF sizAR > 3072 THEN (*Если файл превысил лимит по объему в байтах, хотя придел надо уточнять*)

sizBUF := (sizAR / 3) *2; (*Вычисляем 2/3 размера файла*)
SysFileSetPos(f1, sizBUF); (*Выставляем указатель на 2/3 файла*)
SysFileRead(f1, ADR(BUFER), (siz - sizBUF)); (*Читаем в буфер последнюю треть файла*)
SysFileClose(f1);

IF f2 = 0 THEN f2 := SysFileOpen('temp.txt', 'w'); END_IF (*Открываю новый файл для записи*)
SysFileWrite(f2, ADR(BUFER), SIZEOF(BUFER));
FOR i := 0 TO 1024 DO BUFER [i] := 0; END_FOR (*Очищищаем буфер*)

SysFileClose(f2);
SysFileDelete('arc.txt');
SysFileRename('temp.txt', 'arc.txt');

END_IF;(*IF sizAR > 3072 THEN*)