Линейные списки, Исправить ишибки Опции

[ladybird]

Здравствуйте. Помогите исправить ошибки, пожалуйста.

Задача:
1 Сформировать список с полями Улица,№дома,№квартира,кол-во жильцов и вывести на экран в виде таблицы.
2. Найти и вывести на экран кол-во жильцов по заданному пользователем адресу.
3. Отсортировать по кол-ву жильцов.
4. Сформировать новый список не включающий поля "улица".
5. Вывести новый список на экран в виде таблицы.

Заминка вышла в сортировке, у меня сортирует кол-во жильцов, а не по количеству. И при формировании нового списка я извлекаю инф из первого элемента и освобождаю его память, а на экран выводится только второй адрес(из двух) без поля "улица".

Помогите, если не трудно)))

Вот код:

program spisok;
uses crt;
type
 sp=^adres;
 adres=record
   street:string;
   dom,kv,zilci:integer;
   link:sp;
 end;
 sp1=^adres1;
 adres1=record
   street:string;
   dom,kv,zilci:integer;
   link:sp1;
   end;
var
 begp,endp,pp:sp;
 begp1,endp1:sp1;
 i,j:integer;
 nm:byte;
 v:boolean;

 Procedure vvod(var begp,endp:sp);
 var pp:sp;
 begin
  Writeln('vvedite kolichestvo zap');
 readln(nm);
  for i:=1 to nm do
  begin
  new(pp);
  write('street    ');
  readln(pp^.street);
  write('# doma    ');
  readln(pp^.dom);
  write('# kvartiri    ');
  readln(pp^.kv);
  write('kol-vo zilcov    ');
  readln(pp^.zilci);
  pp^.link:=nil;
  if begp=nil
   then begp:=pp
     else endp^.link:=pp;
       endp:=pp;
  end;
 end;

  procedure vivod(begp,endp:sp);
 var pp:sp;
 begin
  clrscr;
  write('--------------------------------------------------');
  writeln;
  write('|   street   |  #doma  |  #kv  |  kol-vo zilcov   |');
    for i:=1 to nm do
  pp:=begp;
  while pp<>nil do
    begin
    writeln;
    write(pp^.street:12,' ');
    write(pp^.dom:6, '  ' ,pp^.kv:9, ' ', pp^.zilci:8, ' ');
    writeln;
    pp:=pp^.link;
    end;
     write('---------------------------------------------------');
     writeln;
   end;

 procedure poisk(var begp1,endp1:sp1;begp,endp:sp);
 var
 pp:sp;
 pp1:sp1;
  begin
  writeln('Vvedite street, dom, kv cheres enter');
  begin
   readln(pp1^.street);
   readln(pp1^.dom);
   readln(pp1^.kv);
   pp:=begp;
  while pp<>nil do
     begin
   if ((pp1^.street=pp^.street) and (pp1^.dom=pp^.dom)) and (pp1^.kv=pp^.kv)
      then
       begin
        write('Kol-vo zilcov: ');
        write(pp^.zilci);
        writeln;
        v:=true;
       end;
    if v=false then
      writeln('takogo adresa ne naideno');
     pp:=pp^.link;
    end;
    end;
    end;

 procedure sort(begp,endp:sp);
 var
 pp,p1,pt:sp;
 t,r,g:integer;
 k:string;
 begin
 for i:=1 to nm do
 pp:=begp;
 while pp<>endp do
 begin
 t:=pp^.zilci;
 pt:=pp;
 p1:=pp;
 while p1^.link<>nil do
 begin
 p1:=p1^.link;
 if p1^.zilci<=pp^.zilci then
  begin
 t:=p1^.zilci;
  pt:=p1;
  end;
  end;
 pt^.zilci:=pp^.zilci;
 pp^.zilci:=t;
 pp:=pp^.link;
 end;
 end;

  procedure vivodsort(begp,endp:sp);
 var pp:sp;
 begin
  write('--------------------------------------------------');
  writeln;
  write('|   street   |  #doma  |  #kv  |  kol-vo zilcov   |');
    for i:=1 to nm do
  pp:=begp;
  while pp<>nil do
    begin
    writeln;
    write(pp^.street:12,' ');
    write(pp^.dom:6, '  ' ,pp^.kv:9, ' ', pp^.zilci:8, ' ');
    writeln;
    pp:=pp^.link;
    end;
     write('---------------------------------------------------');
     writeln;
   end;


 Procedure novmas(var begp,endp:sp);
 var
 x:string;
 pp:sp;
 begin
 for i:=1 to nm do
 x:=begp^.street;
 pp:=begp;
 begp:=pp^.link;
 dispose(pp);
 end;
  {Procedure novmas(var begp,endp:sp);
 var
 pp:sp;
 pp1:sp1;
 begin
 for i:=1to nm do
 new(pp1);
 pp1^.dom:=pp^.dom;
 pp1^.kv:=pp^.kv;
 pp1^.zilci:=pp^.zilci;
 pp1^.link:=nil;
 begp1:=pp1;
 endp1:=pp1;
 end;               }

 Procedure novmasa(begp,endp:sp);
 var pp:sp;
 begin
  write('-------------------------------------');
  writeln;
  write('| #doma  |    #kv   | kol-vo zilcov  |');
    pp:=begp;
    while pp<>nil do
     begin
      writeln;
      write(pp^.dom:6, ' ' ,pp^.kv:8, ' ',pp^.zilci:8, ' ');
      writeln;
      pp:=pp^.link;
     end;
   write('-------------------------------------');
   writeln;
   readln;
  end;

 begin
 clrscr;
 begp:=nil;
 endp:=nil;
 vvod(begp,endp);
 vivod(begp,endp);
 poisk(begp1,endp1,begp,endp);
 sort(begp,endp);
 writeln('ots spisok');
 vivodsort(begp,endp);
 novmas(begp,endp);
 novmasa(begp,endp);
 readln;
 end.