[AND_REY]

Подправил :

Код:

program sozdat_file_agenstvo;

{$APPTYPE CONSOLE}

Type
 Agent = Record
  kk:  Byte;
  et:  Integer;
  pl:  Real;
  den: Integer;
  mes: Integer;
  god: Integer;
 end;

Var
 F: File of Agent;
 K: Agent;
 i, N: Integer;

begin
 Write('kol-vo kvartir: ');
 Readln(N);
 Assign(F, 'C:\agenstvo.ddt');
 Rewrite(F);
 For i:= 1 To N Do
  begin
   Writeln('opishi kvartiru ? ', i);
   Write('komnati: ');
   Readln(K.kk);
   Write('etag: ');
   Readln(K.et);
   Write('ploschad: ');
   Readln(K.pl);
   Write('den registr: ');
   Readln(K.den);
   Write('mesac registr: ');
   Readln(K.mes);
   Write('god registr: ');
   Readln(K.god);
   Write(F, K);
  end;
 CloseFile(F);
end.

Чтение:

Код:

program sozdat_file_agenstvo2;

{$APPTYPE CONSOLE}

Uses
 SysUtils;

Type
 Agent = Record
  kk:  Byte;
  et:  Integer;
  pl:  Real;
  den: Integer;
  mes: Integer;
  god: Integer;
 end;

Var
 F: File of Agent;
 K: Agent;
 i: Integer = 0;

begin
 Assign(F, 'C:\agenstvo.ddt');
 Reset(F);
 While Not Eof(F) Do
  begin
   Inc(i);
   Read(F, K);
   Writeln('                     kvartira: ' + IntToStr(i));
   Writeln('komnati: ' + IntToStr(K.kk));
   Writeln('etag: ' + IntToStr(K.et));
   Writeln('ploschad: '+ FloatToStr(K.pl));
   Writeln('den registr: ' + IntToStr(K.den));
   Writeln('mesac registr: ' + IntToStr(K.mes));
   Writeln('god registr: ' + IntToStr(K.god));
  end;
 Readln;
 CloseFile(F);
end.