Изменения в процедуре

*) Изменил кодировку с UTF-8(c BOM) на UTF-8 (без ВОМ)

*) Начал добавлять проверку, чтобы на больших числах не падала
tryStrToShortlnt

*) procedure readstructure(var f:Text; var gr:Graph) - исправлено,
теперь принимает var-параметром gr:Graph (далее обработка графа ведь
будет вне этой процедуры)

*) vertNum, structwidth, structFleight занесены полями в Graph.
Соответственно изменены все вызовы переменных (к примеру, "vertNum"
"gr.vertNum"

*) gr.structFleight: = line - 1 - запись высоты таблицы структуры после
окончания её чтения