запись в файл

[Serg94]

у меня задание записать структуру в файл, то есть мне нужно записать всю информацию которая выводится в консоле в файл ?!

[Hacker19_90]

нет это значит так

type 
   Tstr = record;
     bla: string;
   end;
var
  str : TStr;
  f: file of TStr;
begin
  ReadLn (str.bla);
  assign (f, filename);
  Rewrite (f);
  Write (f, str);
  close(f); 
end.