помогите найти ошибки и исправить

Program Spisok_grup;
Type Pe=^Spisok; // описание указателя
     Spisok=Record    // задание типа переменной
     FIO:String[50];
     Pol:Char;
     Dat:String[16];
     Adres:String[50];
     Curs:1..5;
     Grup:1..10;
     Stip:Real;
     P:Pe;
     End;
Var Elem,Beg:Pe;
    N,i,j:Integer;
    Poisk,Fam,Tmp:String;
Procedure Viborka_po_adres;  {описание процедуры выборки по месту 
                                                    жительства}
    Begin
         Write('Введите адрес: ');
         Readln(Poisk);
         Elem:=Beg;
         For i:=1 to N do
             Begin
                  If Elem^.Adres=Poisk then
                     Begin
                          Write(Elem^.FIO,' ');
                          Write(Elem^.Pol,' ');
                          Write(Elem^.Dat,' ');
                          Write(Elem^.Adres,' ');
                          Write(Elem^.Curs,' ');
                          Write(Elem^.Grup,' ');
                          WriteLn(Elem^.Stip);
                          Elem:=Elem^.P;
                     End;
                     Elem:=Elem^.P;
             End;
    End;
Procedure udalenie;  //описание процедуры удаления
var Temp,Temp2:Pe;
begin
Write('Введите фамилию: ');
         Readln(Fam);
  If Beg^.FIO=Fam then {Если удаляемый элемент – первый, то это частный 
                                         случай. Обработаем его отдельно}
  begin
    Temp:=beg; {Сохраним указатель на него}
    beg:=beg^.p; {Сделаем так, чтобы первым элементом теперь стал 
                            следующий}
    Dispose(Temp); {Удалим из памяти теперь уже бывший элемент}
  end
  {Иначе мы будем искать элемент с значением fam, но будем запоминать указатель на предыдущий элемент}
  {Это нужно для того, чтобы исправить потом указатель, чтобы он не указывал на удаленный элемент}
  else begin
  Temp:=Beg;
  while Temp^.P<>NIL do {Пока у элемента есть следующий, продолжаем}
  begin
    if Temp^.P^.FIO=Fam then {Если значение следующего элемента – искомое 
                                                    то}
    begin
      Temp2:=temp^.P; {Поместим в Temp2 указатель на удаляемый элемент}
      Temp^.P:=Temp2^.P; {Сделаем так, чтобы элемент перед удаляемым 
                                             указывал на элемент после удаляемого}
      Dispose(Temp2); {И наконец удалим из памяти удаляемый элемент}
      {Получится что предыдущий элемент указывает на следующий, а сам удаляемый элемент уже не существует}
      Break; {Прервем цикл, так как мы уже нашли удаляемый элемент}
    end;
    Temp:=Temp^.P; {Перейдем к следующему элементу}
  end; end;
  Elem:=Beg;
         WriteLn('Вывод полученного списка');
         For i:=1 to N-1 do //Вывод результата
             Begin
                  Write(Elem^.FIO,' ');
                  Write(Elem^.Pol,' ');
                  Write(Elem^.Dat,' ');
                  Write(Elem^.Adres,' ');
                  Write(Elem^.Curs,' ');
                  Write(Elem^.Grup,' ');
                  WriteLn(Elem^.Stip);
                  Elem:=Elem^.P;
             End;
end;
    Procedure Sortirovka; //Описание процедуры сортировки по алфавиту
    var Temp:Pe;
    Begin
         Elem:=Beg;
         If Beg^.FIO>Beg^.P^.FIO then
            begin
                 temp:=beg;
                 beg:=beg^.p;
                 beg^.p:=temp;
            end
         else
         for i:=1 to N do
          for j:=1 to N-i do
               begin
                    if Elem^.FIO>Elem^.P^.FIO then {Если значение следующего
                                                                     элемента больше текущего - то}
                       begin
                            temp:=Elem;
                            Elem:=Elem^.p;
                            Elem^.p:=temp;
                       end;
                    Elem:=Elem^.P; {Перейдем к следующему элементу}
               end;
         Elem:=Beg;
         WriteLn('Вывод отсортированного списка');
         For i:=1 to N do //Вывод результата
             Begin
                  Write(Elem^.FIO,' ');
                  Write(Elem^.Pol,' ');
                  Write(Elem^.Dat,' ');
                  Write(Elem^.Adres,' ');
                  Write(Elem^.Curs,' ');
                  Write(Elem^.Grup,' ');
                  WriteLn(Elem^.Stip);
                  Elem:=Elem^.P;
             End;
    End;
Begin
     Write('Количество студентов в группе?');
     ReadLn(N);
     NEW(Elem); Beg:=Elem; Elem^.P:=Elem; {Определение адреса начала 
                                                                              списка и его сохранение}
     For i:=1 to N do
         Begin
              WriteLn('Введите данные ',i,'-ого студента:');
              Write('ФИО: '); ReadLn(Elem^.FIO);  {Формирование списка группы}
              Write('Пол: '); ReadLn(Elem^.Pol);
              Write('Дата рождения: '); ReadLn(Elem^.Dat);
              Write('Адрес: '); ReadLn(Elem^.Adres);
              Write('Курс: '); ReadLn(Elem^.Curs);
              Write('Группа: '); ReadLn(Elem^.Grup);
              Write('Стипендия: '); ReadLn(Elem^.Stip);
              NEW(Elem^.P); Elem:=Elem^.P;
         End;
     WriteLn('Формирование списка закончено');
     //Вызов процедуры выборки
     Viborka_po_adres;
     //Вызов процедуры сортировки
     Sortirovka;
     //Вызов процедуры удаления
     Udalenie;
End.