[BoRoV]

Код:

function GetFirstString(path: string): string;
var
  f: file;
  s: string;
begin
  assignfile(f, path);
  reset(f);
  readln(f, s);
  closefile(f);
  result := s;
end;