Чтение из файла

[Stilet]

в нем нет никаких полей в нем сидят только имена кафедр

Ну ты потомок кибальчиша...
Я тебя не про кафедры спрашиваю. Сам подумай логичски: Если ты записываешь в файл chairs[i].GetNC, соответственно информацию нужно считывать в массив chairs.
Я тебя и спрашиваю какие свойства у элементов есть, куда можно считать. Судя по всему, о чем ты умолчал, GetNC - функция. Поэтому ищи свойство, которое способно принимать информацию, генерируемую этой функцией и в него записывай.

Или:

procedure TInstitut.LoadFile(aName_File:string):boolean;
var
i: Integer;s:string;
f:TextFile;
begin
Result:=False;
if count=0 then
Exit
    else begin
          AssignFile(f,aName_File);
             Reset(f);
                    for i:= 1 to count do begin
                      readln(f,s);
                      Add(s)
                    end;
CloseFile(f);
Result:=True;
end;  end;