[phasha]

Код:

program sozdat_file_agenstvo;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type  ms=array[1..20] of integer;
type  ms2=array[1..31] of integer;
type  ms3=array[1..12] of integer;
type  ms4=array[1990..2011] of integer;
type agent=record
     kk:byte;
     et:ms;
     pl:real;
     dt:record
     den:ms2;
     mes:ms3;
     god:ms4;
     end;end;
type kvart=file of agent;
var i,n:integer; f:kvart; k:agent;
begin
  WriteLn('kol-vo kvartir: ');
  Readln(n);
  Assign(f, 'agenstvo.ddt');
  Rewrite(f);
  for i:=1 to N do begin
    Writeln('opishi kvartiru ¹ ',i);
    write('komnati: ');
    Readln(k.kk);
    Write(f,k.kk);
    write('etag: ');
    Readln(k.et);
    Write(f,k.et);
    write('ploschad: ');
    Readln(k.pl);
    Write(f,k.pl);
    write('den registr: ');
    Readln(k.dt.den);
    Write(f,k.dt.den);
    write('den registr: ');
    Readln(k.dt.den);
    Write(f,k.dt.den);
    write('mesac registr: ');
    Readln(k.dt.mes);
    Write(f,k.dt.mes);
    write('god registr: ');
    Readln(k.dt.god);
    Write(f,k.dt.god);
  end;
  Close(f);
end.

что не так?((