Почему данные не сохраняются или не выводятся?

[SnowFall]

вот код проги, подскажите почему данные не загружаются?

program Project11;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  StrUtils;

type
  TOtdel=Record
           Freb,Ireb,Oreb,Frod,Irod,Orod: string[30];
           Mrab,Dolzhnost,Ul:string[30];
           Dom,Kv:Integer;
         end;
var
  OtdelList:array[1..1000] of TOtdel;
  N:Integer;

function AddZapis:Boolean;
var
  Zapis:TOtdel;
  Key:Char;
  t:string;
begin
  Result:=False;
  N:=N+1;
  Writeln('dlya dobavleniya zapisi nazhmite [S]');
  Writeln('dlya prodolzheniya nazhmite lubuu klavishu');
  Readln(Key);
  Result:=UpCase(Key)='S';
  if Result
    then begin
           {$I-}
           Repeat
             Writeln('familiya rebenka: ');
             Readln(Zapis.Freb);
           Until(IOResult=0) and (zapis.Freb<>'');
           Repeat
             Writeln('imya rebenka: ');
             Readln(Zapis.Ireb);
           Until(IOResult=0) and (zapis.Ireb<>'');
           Repeat
             Writeln('otchestvo rebenka: ');
             Readln(Zapis.Oreb);
           Until(IOResult=0) and (zapis.Oreb<>'');

           Repeat
             Writeln('familiya roditelya: ');
             Readln(Zapis.Frod);
           Until(IOResult=0) and (zapis.Frod<>'');
           Repeat
             Writeln('imya roditelya: ');
             Readln(Zapis.Irod);
           Until(IOResult=0) and (zapis.Irod<>'');
           Repeat
             Writeln('otchestvo roditelya: ');
             Readln(Zapis.Orod);
           Until(IOResult=0) and (zapis.Orod<>'');

           Repeat
             Writeln('mesto raboti: ');
             Readln(Zapis.Mrab);
           Until(IOResult=0) and (zapis.MRab<>'');
           Repeat
             Writeln('dolzhnost: ');
             Readln(Zapis.Dolzhnost);
           Until(IOResult=0) and (zapis.dolzhnost<>'');
           Repeat
             Writeln('ulica: ');
             Readln(Zapis.ul);
           Until(IOResult=0) and (zapis.Ul<>'');
           Repeat
             Writeln('nomer doma: ');
             Readln(Zapis.Dom);
           Until(IOResult=0);
           Repeat
             Writeln('kvartira: ');
             Readln(Zapis.kv);
           Until(IOResult=0);
           {$I+}
           OtdelList[n]:=Zapis;
           N:=N+1;
         end;
end;

function LoadFromFile:Boolean;
var
  f:file of Totdel;
  i,n:Byte;
begin
  n:=0;
  if Result then
              begin
                AssignFile(f,'stat.dat');
                Reset(f);
                while not eof(f) do
                  begin
                    Inc(i);
                    Read(f,OtdelList[n]);
                  end;
                CloseFile(f);
              end;
end;

function SaveToFile:Boolean;
var
  f:file of TOtdel;
  i:Integer;
begin
  AssignFile(f,'stat.dat');
  {$I-}
  Rewrite(f);
  Result:=IOResult=0;
  {$I+}
  if Result then
    begin
      i:=1;
      while(i<=N) do
      begin
        write(f,OtdelList[i]);
        Inc(i);
      end;
      CloseFile(f);
    end;
end;


Procedure PrintOtdel;
var
  i:Integer;
begin
  Writeln(DupeString('-',80));
  Writeln('N':2,'|','FIO roditelei':15,'|','FIO rebenka':15,'|',
  'MRab':12,'|','Dolzhnost':12,'|','Ul':10,'|','Dom':3,'|','Kv':3);
  Writeln(DupeString('-',80));
  for i:=1 to n do
  with otdellist[i] do
  Begin
    Writeln(i:2,'|',FRod:15,'|',FReb:15,'|',
    MRab:12,'|',Dolzhnost:12,'|',Ul:10,'|',Dom:3,'|',Kv:3);
    Writeln(i:2,'|',IRod:15,'|',IReb:15,'|',
    '':12,'|','':12,'|','':10,'|','':3,'|','':3);
    Writeln(i:2,'|',ORod:15,'|',OReb:15,'|',
    '':12,'|','':12,'|','':10,'|','':3,'|','':3);
  end;
  WriteLn(DupeString('-',80));
end;

Var
  Nomer:Integer;

begin
  n:=0;
  Repeat
    {$I-}
    Repeat
      WriteLn('[1]. Zagruzit');
      WriteLn('[2]. Prosmotret');
      WriteLn('[3]. Dobavit');
      WriteLn('[4]. Sohranit');
      WriteLn('[5]. Exit');
      ReadLn(Nomer);
    Until (IOResult=0)and(Nomer>=1)and(Nomer<=5);
    {$I+}
    Case nomer of
      1: if not LoadFromFile then WriteLn('Error');
      2: PrintOtdel;
      3: if not AddZapis then WriteLn('Error');
      4: if not SaveToFile then WriteLn('Error');
    end;
  Until Nomer=5;
  WriteLn('Press [Enter to exit]');
  ReadLn;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Utkin]

WinCRT в раздел uses, помоему это где-то даже в хелпе есть.

[SnowFall]

не понял =(

ну подскажите что сделать=( и исправьте ошибки которые найдёте

[Anatole]

unction LoadFromFile:Boolean;
var
  f:file of Totdel;
  i,n:Byte;
begin
  n:=0;
  if Result then
              begin
                AssignFile(f,'stat.dat');
                Reset(f);
                while not eof(f) do
                  begin
                    Inc(i);
                    Read(f,OtdelList[n]);
                  end;
                CloseFile(f);
              end;
end;

Читаеш ты в переменную с индексом n (Read(f,OtdelList[n]) а увеличиваеш счетчик по i (Inc(i), а должно быть Inc(n);

[SnowFall]

спасибо вам