Не получается написать процедуру для работы со списком

PROGRAM Lab_4;
  Uses Crt;
  
  Type TDate = record
                       D: 1..31;
                       M: 1..12;
                       Y: 1990..2006
                     end;
  TPlace = record
                   Str: String[20];
                   Home,Apart: Integer
                 end;
  PKids=^TKids;
  TKids = record
                  Fam,Name,Otch: String[20];
                  BirthDay: TDate;
                  Adds: TPlace;
                  Books: Integer;
                  School: String[20];
                  NextAd:PKids
                end;
                
  Var BKids,Kids,YKids,EKids:PKids;
      Ch:Char;
 
  Procedure AddInTop;
  Begin
    New(Kids); ClrScr;
    With Kids^ do begin
      Write('ВВЕДИТЕ ФАМИЛИЮ >'); ReadLn(Fam);
      Write('ВВЕДИТЕ ИМЯ >'); ReadLn(Name);
      Write('ВВЕДИТЕ ОТЧЕСТВО >'); ReadLn(Otch);
      Write('ДЕНЬ РОЖДЕНИЯ >'); ReadLn(BirthDay.D);
      Write('МЕСЯЦ РОЖДЕНИЯ >'); ReadLn(BirthDay.M);
      Write('ГОД РОЖДЕНИЯ >'); ReadLn(BirthDay.Y);
      Write('УЛИЦА >'); ReadLn(Adds.Str);
      Write('ДОМ >'); ReadLn(Adds.Home);
      Write('КВАРТИРА >'); ReadLn(Adds.Apart);
      Write('КОЛ-ВО ПРОЧИТАННЫХ КНИГ >'); ReadLn(Books);
      Write('ШКОЛА >'); ReadLn(School);
      NextAd:=BKids;
      BKids:=Kids;
    end;
    If EKids=Nil then EKids:=Kids;
    ClrScr
  End;
  
  Procedure AddInEnd;
  Begin
    New(Kids); ClrScr;
    With Kids^ do begin
      Write('ВВЕДИТЕ ФАМИЛИЮ >'); ReadLn(Fam);
      Write('ВВЕДИТЕ ИМЯ >'); ReadLn(Name);
      Write('ВВЕДИТЕ ОТЧЕСТВО >'); ReadLn(Otch);
      Write('ДЕНЬ РОЖДЕНИЯ >'); ReadLn(BirthDay.D);
      Write('МЕСЯЦ РОЖДЕНИЯ >'); ReadLn(BirthDay.M);
      Write('ГОД РОЖДЕНИЯ >'); ReadLn(BirthDay.Y);
      Write('УЛИЦА >'); ReadLn(Adds.Str);
      Write('ДОМ >'); ReadLn(Adds.Home);
      Write('КВАРТИРА >'); ReadLn(Adds.Apart);
      Write('КОЛ-ВО ПРОЧИТАННЫХ КНИГ >'); ReadLn(Books);
      Write('ШКОЛА >'); ReadLn(School);
      NextAd:=Nil
    end;
    If EKids=Nil then
      begin
        BKids:=Kids;
        EKids:=Kids
      end
    else
      begin
        EKids^.NextAd:=Kids;
        EKids:=Kids
      end;
    ClrScr;
  End;
    
  Procedure ViewList;
    Var i: LongInt;
  Begin
    ClrScr;
    i:=1; Kids:=BKids;
    With Kids^ do
      While Kids<>Nil do begin
        WriteLn(i:2,Fam:15,Name:15,Otch:15,'':3,BirthDay.D:2,'.',BirthDay.M:2,'.',BirthDay.Y:4,Adds.Str:15,'/',Adds.Home:2,'/',Adds.Apart:3,'':3,Books:5,'':3,School:15);
        Kids:=NextAd;
        Inc(i)
      end;
  End;
  
  Procedure TreatList;
  Begin
    Write('Samiy molod');
  End;
  
  Procedure TreatList2;
  Begin
    Write('Sort po shkolam');
  End;
  
  Procedure Menu(Var Ch:Char);
    Const M=['1','2','3','4','5','6'];
  Begin
    TextBackground(Black); TextColor(Green);
    CrtWindowSize(150,40); ClrScr;
    Window(1,1,150,40); ClrScr;
    Window(4,4,150,40); ClrScr;
    WriteLn('ВЫБЕРИТЕ ПУНКТ МЕНЮ:');
    WriteLn;
    WriteLn('1. ДОБАВИТЬ В НАЧАЛО СПИСКА');
    WriteLn('2. ДОБАВИТЬ В КОНЕЦ СПИСКА');
    WriteLn('3. ПРОСМОТРЕТЬ СПИСОК');
    WriteLn('4. САМЫЙ ЮНЫЙ, ПРОЧИТАВШИЙ >500 КНИГ');
    WriteLn('5. СОРТИРОВКА СПИСКА ПО ШКОЛАМ');
    WriteLn('6. ЗАВЕРШИТЬ РАБОТУ');
    Ch:='A';
    While Not(Ch in M) do
      begin
        Ch:=ReadKey
      end;
    ClrScr
  End;
  
  Procedure Done;
  Begin
    WriteLn('УНИЧТОЖАЮ СПИСОК');
    Kids:=BKids;
    While BKids<>Nil do begin
      Kids:=BKids^.NextAd;
      Dispose(BKids);
      BKids:=Kids
    end;
    WriteLn('УСПЕХОВ В РАБОТЕ');
    Repeat
    until KeyPressed;
    ClrScr
  End;
  
BEGIN
  ClrScr;
  BKids:=Nil; EKids:=Nil;
  Repeat
    Menu(Ch);
    Case Ch of
      '1': AddInTop;
      '2': AddInEnd;
      '3': begin
             ViewList;
             Repeat
             until KeyPressed;
             ClrScr
           end;
      '4': begin
             ViewList;
             TreatList
           end;
      '5': begin
             ViewList;
             TreatList2
           end;
    end
  until Ch='6';
  Done
END.