Не могу понять почему происходит удаление записей

Uses Crt;
   Const
   maxN=100;
Type
   TDate=record
    D:1..31;
    M:1..12;
    Y:integer;
end;
   TAdres = record
   Ul:string[40];
   Hm,Kv:integer;
end;
     TPupil=record
     F,I,O:String[20];
     BDay:TDate;
     HD:integer;
     Adres:TAdres;
     Krugok:String[20];
     Fakult:String[20];
  end;
   Var
    Clas:array[1..MaxN]of TPupil;
    X:TPupil;
    i,j,N:Integer;
    Key:Char;
Procedure Pause;
  Var Ch:Char;
  Begin
     While KeyPressed do
      Ch:=ReadKey;
     Repeat
     Until KeyPressed
end;
Procedure VVod;
Begin
ClrScr;
i:=N;
    repeat
      i:=i+1;
      write('Введите Фамилию: ');Read(X.F);
      write('Введите Имя: ');Read(X.I);
      write('Введите Отчество: ');Read(X.O);
      write('Введите День Рождения: ');Read(X.BDay.D);
      write('Введите Месяц Рождения: ');Read(X.BDay.M);
      write('Введите Год Рождения: ');Read(X.BDay.Y);
      X.HD:=X.Bday.Y*405+X.Bday.M*12+X.Bday.D;
      write('Введите Улицу: ');Read(x.Adres.Ul);
      write('Введите Дом: ');Read(x.Adres.Hm);
      write('Введите Квартиру: ');Read(x.Adres.Kv);
      write('Введите Кружок: ');Read(X.Krugok);
      write('Введите Факультатив: ');Read(X.Fakult);
      Clas[i]:=X;
    writeln('Ввести еще одного участника? [+/-]');readLn(key);
    until key='-';
    N:=i;
    Pause
  end;
Procedure View;
Var
  j:Integer;
begin
ClrScr;
If n=0 then
 WriteLn('Список пуст')
 else begin
 For j:=1 to n do begin
  x:=Clas[j];
  with Clas[j] do begin
   Write(j:2,'.',F:15,I:10,O:15);
   WriteLn(BDay.D:4,'/',BDay.M:2,'/',BDay.Y:4,'/ ',Adres.Ul:10,'/',Adres.Hm:3,'/',Adres.Kv:4,'/',Krugok:10,'/',Fakult:10);
    end;
    end;
    end;
    Pause
end;
Procedure Edit;
 Begin
clrscr;
If n=0 then
 WriteLn('Список пуст')
 else begin
View;
WriteLn('Введите номер ученика (для выхода введите 0)');
    Write('№'); ReadLn(n);
      If (n=0) then Exit
      else Begin
        X:=Clas[n];
        Write('Фамилия:'); ReadLn(X.F);
        Write('Имя:');ReadLn(X.I);
        Write('Отчество:');ReadLn(X.O);
        WriteLn('Дата рождения');
        Write('День:');ReadLn(X.BDay.D);
        Write('Месяц:');ReadLn(X.BDay.M);
        Write('Год:');ReadLn(X.BDay.Y);
        WriteLn('Место проживания');
        Write('Улица:');ReadLn(x.Adres.Ul);
        Write('Дом:');ReadLn(x.Adres.Hm);
        Write('Квартира:');ReadLn(x.Adres.Kv);
        WriteLn('Кружок:');ReadLn(X.Krugok);
        WriteLn('Факультатив:');ReadLn(X.Fakult);
        Clas[n]:=x;
    end;
  end;
  WriteLn('--------------------------------');
  View;
  ReadLn;
  Clrscr;
end;
Procedure Sort;
Var
  i,j:Integer;
  Temp: TPupil;
begin
  ClrScr;
  If n=0 then
 WriteLn('Список пуст')
 else begin
  View;
  WriteLn('Cортировка по кружкам');
  For i:=1 to n-1 do begin
   For j:=i+1 to n do begin
            If Clas[j].Krugok< Clas [i].Krugok then begin
            Temp:=Clas[j];Clas[j]:=Clas[i];Clas[i]:=Temp;
           end;
         end;
       end;
       View;
       Pause
     end;
    end;
Procedure Choise;
  Var t,i:Byte;
Begin
  clrscr;
  If n=0 then
 WriteLn('Список пуст')
 else begin
  View;
  X.HD:=0;
  writeLn('--------------------------------');
 for i:=1 to N do
  if (Clas[i].Fakult='информатика') and (X.HD<Clas[i].HD) then  X:=Clas[i];
 If  (X.HD=0) then Writeln ('Таких нет');
 For i:=1 to N do
   If (Clas[i].Fakult='информатика') and (X.HD=Clas[i].HD) then
        writeLn(Clas[i].F:4,'/',Clas[i].I:4,'/',Clas[i].O:4,'/',Clas[i].BDay.D:4,'/',Clas[i].BDay.M:2,'/',Clas[i].BDay.Y:4,'/ ',Clas[i].Adres.Ul:10,'/',Clas[i].Adres.Hm:3,'/',Clas[i].Adres.Kv:4,'/',Clas[i].Krugok:10,'/',Clas[i].Fakult:10);
 end;
Pause;
End;
Procedure Manager;
     Var Key:Char;
   Begin
   Repeat ClrScr;
     WriteLn ('***Выберите нужный пункт***');
     WriteLn ('1.Внесение данных в базу');
     WriteLn ('2.Просмотр данных в виде таблицы');
     WriteLn ('3.Изменение данных в выбраной записи');
     WriteLn ('4.Сортировка по кружкам');
     WriteLn ('5.Поиск самого юного информатика');
     WriteLn ('6.Выход');
     Write ('>');ReadLn(Key);
  Case Key of
    '1' :VVod;
    '2' :View;
    '3' :Edit;
    '4' :Sort;
    '5' :Choise;
  end;
  until key ='6';
end;
BEGIN
  CrtWindowSize(100,40);Window(1,1,100,40);
  Manager;
END.