Filush-IO

unit IO;
  interface
    uses crt;

 const
        LINES_PEER_FILE = 2;

 type
    TData = Record
      Marka : string;
      Model : String;
    end;

  function LoadFromFile(Path:String) : TData;
  Procedure SaveToFile(Path:String;sData :TData);

    var
      i : integer;

  implementation

function LoadFromFile(Path:String) : TData;
  var
    rData:TData;
    bFile : Text;
  begin
   Assign(bFile, Path);
   Reset(bFile);
   readln(bFile,rData.Marka);
   readln(bFile,rData.Model);
   close(bFile);
   LoadFromFile := rData;
  end;

Procedure SaveToFile(Path: String;sData: TData);
   var
    bFile : Text;
  begin
    Assign(bFile, Path);
    ReWrite(bFile);
    Writeln(bFile,sData.Marka);
    Writeln(bFile,sData.Model);
    Close(bFile);
 end;

  end.