Помогите!!! Не вмещается проект в ПЛК 100

[Georgiy]

FUNCTION_BLOCK Load_File
VAR_INPUT
Test_Power: BOOL;
END_VAR
VAR_OUTPUT
mes_i:ARRAY[0..7433] OF STRING;
END_VAR
VAR
FilenameL: STRING;
f2: DWORD;
ReadBuffer: ARRAY[0..743] OF STRING;
TIME_buf:ARRAY[0..743] OF STRING;
i: DWORD;


SysFileClose(f2);

FilenameL:='grafik1.txt';
IF Test_Power=TRUE THEN
f2:=SysFileOpen(FilenameL,'r');
i:=0;
(*Очищаем буфер и массив*)
FOR i := 0 TO 743 DO
ReadBuffer [i] := '';
TIME_buf [i] := '';
END_FOR

i:=0;

FOR i:=0 TO 743 DO
(*Загружаем из файла*)

SysFileRead(f2,ADR(ReadBuffer[i]),14);

(*Выбираем из него время*)

time_buf[i]:=(MID(ReadBuffer[i],8,7));

(Делаем формат TOD)

mes_i[i]:=STRING_TO_TOD(CONCAT('tod#',time_buf[i]));
END_FOR
SysFileClose(f2);


(*-----------------------------------------------------------------------*)