Определение количества абитуриентов, проживающих в городе Минске

uses crt;
type link = ^kom;
       kom  = record
               fio : string[30];
             adres : string[50];
               mat : integer;
               fiz : integer;
               rus : integer;
              next : link;
          end;
 var
  spisok, nach : link;
  z : kom;
  i, n, menu : integer;
  a : char;
  
{Ââîä ñïèñêà ñ êëàâèàòóðû}
procedure create(var spisok, nach:link; var z : kom);
var
  i, n : integer;
begin
    write('Ôàìèëèÿ Èìÿ Îò÷åñòâî: ');
    readln(z.fio);
    write('Àäðåñ ïðîæèâàíèÿ: ');
    readln(z.adres);
    repeat
      write('Îöåíêè (ìàò, ôèçèêà, ðóññ-é) ÷åðåç ïðîáåë: ');
      readln(z.mat, z.fiz, z.rus);
    until (z.mat in [0..5])and(z.fiz in [0..5])and(z.rus in [0..5]);
    z.next := nil;
    if nach = nil then
    begin
      new(nach);
      nach^ := z;
      spisok := nach;
      nach^.next:=nil;
    end
    else
    begin
      new(spisok^.next);
      spisok:=spisok^.next;
      spisok^ := z;
      spisok^.next:=nil;
    end;
end;{ create }
 
{âûâîä ñïèñêà íà ýêðàí }
procedure print(nach : link);
var
  spisok : link;
  i : integer;
begin
 clrscr;
 spisok:=nach;
 i:=0;
 if spisok=nil then writeln('Ñïèñîê ïóñò!')
 else
 begin
   write('|------------------------------------------------------------------------------|');
   write('|Ïîð.|   Ôàìèëèÿ Èìÿ Îò÷åñòâî  | Àäðåñ ïîñòîÿííîãî ìåñòà| Îöåíêè ïî ïðåäìåòàì: |');
   write('| ¹  |      àáèòóðèåíòà        |        æèòåëüñòâà      |Ìàòåì.|Ôèçèêà|Ðóñ. ÿç.|');
   write('|--------------------------------------------------------------------=---------|');
   while spisok<>nil do
   begin
     i:=i+1;
     write('| ',i,')');
     gotoXY(6,whereY);write('| ',spisok^.fio);
     gotoXY(32,whereY);write('| ',spisok^.adres);
     gotoXY(57,whereY);write('|  ',spisok^.mat);
     gotoXY(64,whereY);write('|  ',spisok^.fiz);
     gotoXY(71,whereY);write('|   ',spisok^.rus,'    |');
     spisok:=spisok^.next;
   end;
 end;
 writeln;
end; { print }
 
{Äîáàâëåíèå ýëåìåíòà â ñïèñîê }
procedure add(var nach : link; z : kom; num:integer);
var
   sp1, sp2 : link;
   i : integer;
begin
   new(sp1);
   sp1^ :=z;
   if nach=nil then
   begin
     nach:= sp1;
     sp1^.next:=nil;
   end
   else
   if num=1 then
   begin
     sp1^.next:=nach;
     nach:= sp1;
   end
   else
   begin
      i:=0;
      sp2:= nach;
      while (i<>num-2) and (sp2^.next<>nil) do
      begin
         i:= i+1;
         sp2:= sp2^.next;
      end;
      sp1^.next:=sp2^.next;
      sp2^.next:= sp1;
   end;
end; { add }
 
procedure del(var nach : link; n:integer);
var
   sp1, sp2 : link;
begin
   sp1:=nach;
   while sp1<>Nil do
   begin
     if sp1^ = n then
     begin
       if sp1 = nach then
       begin
         nach := nach^.Next;
         Dispose(sp1);
         sp1 := nach;
       end
       else
       begin
         sp2^.Next := sp1^.Next;
         Dispose(sp1);
         sp1 := sp2^.Next;
       end;
     end
     else
     begin
       sp2 := sp1;
       sp1 := sp1^.Next;
     end;
   end;
end; { del }
 
function Find(An: string): link;
var nach: link;
begin
  nach := spisok;  { óêàçûâàåò íà ïåðâóþ çàïèñü }
  while (nach^.fio <> An) and (nach^.Next <> nil) do
  begin
    nach := nach^.Next;
    if nach^.fio = An then
    Find := nach    { âîçâðàùàåò óêàçàòåëü íà
                                     íàéäåííóþ çàïèñü }
    else Find := nil;   { èëè nil, åñëè òàêèõ çàïèñåé íåò }
  end;
end;
 
begin
  clrscr;
  nach := nil;
  spisok:= nil;
  menu:=1;
  while menu<>0 do
  begin
    writeln('1 - Ôîðìèðîâàíèå ñïèñêà.');
    writeln('2 - Âûâîä ñïèñêà íà ýêðàí.');
    writeln('3 - Äîáàâëåíèå ýëåìåíòà â ñïèñîê.');
    writeln('4 - Óäàëåíèå ýëåìåíòà èç ñïèñêà.');
    writeln('5 - Ïîèñê ýëåìåíòà ñïèñêà ïî ñîîòâåòñòâóþùåìó ïîëþ.');
    writeln('6 - Îïðåäåëåíèå êîëè÷åñòâà àáèòóðèåíòîâ, ïðîæèâàþùèõ â ãîðîäå Ìèíñêå è ñäàâøèõ ýêçàìåíû ñî ñðåäíèì áàëëîì íå íèæå 4. Âûâåñòè èõ ôàìèëèè â àëôàâèòíîì ïîðÿäêå.');
    writeln('7 - Çàïèñü â ôàéë è çàãðóçêà èç ôàéëà.');
    writeln('0 - Âûõîä');
    writeln('Ââåäèòå ïóíê ìåíþ');
    readln(menu);
    case menu of
      1 : begin
            clrscr;
            repeat
              create(spisok,nach,z);
              writeln('Âû æåëàåòå ïðîäîëæèòü ââîä äàííûõ? Y/N ');
              readln(a);
            until (a = 'n') or (a = 'N');
          end;
      2 : begin
            print(nach);
          end;
      3 : begin
             write('Ôàìèëèÿ Èìÿ Îò÷åñòâî: ');
             readln(z.fio);
             write('Àäðåñ ïðîæèâàíèÿ: ');
             readln(z.adres);
             write('Îöåíêè (ìàò, ôèçèêà, ðóññ-é) ÷åðåç ïðîáåë: ');
             readln(z.mat, z.fiz, z.rus);
             write('Ââåäèòå ïîçèöèþ â ñïèñêå äëÿ íîâîãî ýëåìåíòà : ');
             readln(n);
             add(spisok,z,n);
          end;
      4 : begin
             write('Ââåäèòå íîìåð ýëåìåíòà, êîòîðûé íåîáõîäèìî óäàëèòü : ');
             readln(n);
             del(spisok,n);
          end;
      5 : begin
 
          end;
    end; {case}
  end; {while}
end.

{====================================================================}
var nach2: link;
procedure AddInSortSpisok(z: kom; var nach2: link);
{Добавление одного эл-та z в отсортированный список с указ-м nach2 с сохранением упорядоченности}
var p, pr, t: link ; 
begin
    new(t); t^ := z; {новый эл-т}
 
    p := nach2; pr := nil;
 
    while p<>nil and p^.fio<z.fio do {ищем место привязки по FIO }
    begin pred := p; p:= p^.next;  
    end;
    {вставка, привязка на нужное место "между" p и pr}
    t^.next := p; 
    if pr = nil {будет первый эл-т в списке} then 
       nach2 := t
    else pr^.next := t; 
end;
  
 
procedure NewSpisokPorjadok(nach: link; var nach2: link);
{ новый список с указател-м на начало nach2 только с абит Минска по возрастанию FIO}
var p:  link;
begin 
   nach2 := nil;  {новый упорядоченный список}
   p:= nach;      
   while p<> nil do {двигаемся по исходному списку}
   begin p^.ball := (p^.mat+p^.rus+p^.fiz)/3; {средний балл заодно нашли}
         z := p^;
         if (z.ball>=4) 
            and pos(z.adres,'Минск')>0 then 
         { или как еще Минск проверять? может и функцию наоборот надо писать pos('Минск',z.adres) не помню}
                 AddInSortSpisok(z, nach2);
          p:= p^.next;
   end;
   {напечатать нов список можно через про-ру Print(nach2)}  
 
end;

{не пробовала в файл записывать ссылки(адреса), с др стороны адрес это 4 байта (сегмент памяти и смещение от начала сегмента), может и запишется...
 только потом считывать ссылки из файла смысла не имеет конечно}
type fl = file of kom;
var f: fl; FlName: string;
 
procedure SpisokFromFile(var f: fl; var nach: link);
var spisok: link; 
begin
  writeln('Введите имя файла c данными');  readln(FlName);
  assign(f, FlName); {файл должен существовать!!!}
  reset(f);
  nach := nil; spisok:= nil;
  while not eof(f) do 
  begin read(f, z);
        z.next := nil; {на всякий случай... }   
        
        if nach = nil then
         begin
             new(nach);
             nach^ := z;
             spisok := nach;
             nach^.next:=nil;
         end
        else
         begin
            new(spisok^.next);
            spisok:=spisok^.next;
            spisok^ := z;
            spisok^.next:=nil;
         end;        
  end;  
  close(f);
end;
 
 
procedure SpisokToFile(var f: fl; nach: link);
var spisok: link; 
begin
  writeln('Введите имя файла c данными');  readln(FlName);
  assign(f, FlName); {файл может и не существовать}
  rewrite(f);  { если что было - все потрется }
  spisok:= nach;
  while spisok<>nil do 
  begin z := spisok^;   
        write(f, z);
        spisok:=spisok^.next;
  end;  
  close(f);
end;

function FindCheckByAmount(AnAmount: Real): PCheck;
             var Check: PCheck;
             begin
               TempCheck := ListOfChecks;  { указывает на первую запись }
               while (Check^.Amount <> AnAmount) and
                                     (Check^.Next <> nil) do
                  Check := Check^.Next;
               if Check^.Amount = AnAmount then
                  FindCheckByAmount := Check    { возвращает указатель на
                                                  найденную запись }
               else FindCheckByAmount := nil;   { или nil, если таких
                                                  записей нет }
             end;