Списки. Поправить процедуру

[Topse]

Type
  rec=record
   FIO:string[30];
   Vozr:integer;
   adress:string[30];
  end;
Type
  position = ^celltype;                       
  celltype = record                              
  element: rec;                              
  next: position;                         
  end;
  LIST = ^celltype;
var
  L: LIST;                                       
  p: position;                              
  ylica:string;
  sred_vozr:real;
  name:string;
procedure Ins_SingleList(x: rec; var L: LIST; var p: position);
var  q: position;
begin
 New(q);   q^.element := x;
  if L = nil then begin
    q^.next := nil;
    L := q;
  end else begin  
    q^.next := p^.next;
    p^.next := q;
  end;
  p := q;
end;
 
//ЭТА ПРОЦЕДУРА УДАЛЕНИЯ ПРАВИЛЬНАЯ
procedure Del_SingleList(var L: LIST; var p: position);
var q:position;
begin
  if p <> nil then begin 
    if p = L then begin   
      L := L^.next;
      dispose(p);
      p := L;
    end else begin
        q := L;
        while q^.next <> p do
          q := q^.next;
      q^.next := p^.next;
        dispose(p);
        p := q;
    end;
  end;
end;    
 
procedure input(var l:list);
var f:text;
    el:rec;
begin
Assign(f,'file.txt');
Reset(f);
  while not eof(f) do
    begin
      readln(f, el.FIO);
      readln(f, el.Vozr);
      readln(f, el.adress);
      Ins_SingleList(el, l, p);      
    end;
Close(f);
end;
 
procedure output(l:list);
var q:position;
begin
  q:=l;
  writeln('                Ф.И.О             Возраст          Адрес');
  writeln;
  while q <> nil do
  begin
    with q^.element do 
    Writeln(FIO:30,Vozr:9,adress:25);
    q :=q^.next;
  end;
end;
 
 procedure scaningPRYAKOL(l:list; ylica:string; var sred_vozr:real);
var
  q: position; {вспомогательный указатель}   
  a:integer;
begin
  q:=L;
  a:=0;
  while q <> nil do begin  {пока не конец списка}
  if q^.element.adress = ylica then begin
  sred_vozr:= sred_vozr+q^.element.Vozr;
  a:=a+1;
  end;
    q := q^.next;
  end;
  if a<>0 then
  sred_vozr:=sred_vozr/a;  
end; 
 
//ТУТ ПРОБЛЕМА
procedure Scan_SingleList(L: LIST; var p: position; name: string);
var
  q: position;  
begin
  q := L;
  while q <> nil do begin 
  if (q^.element.FIO = name) then begin
        writeln(q^.element.Vozr:19,q^.element.Vozr:9,q^.element.adress:11);  
        p:=q;
        Del_SingleList(l,p);
        end;
    q := q^.next;
  end;
  end;
 
procedure vyvod(sred_vozr:real);
begin
if sred_vozr>0 then
begin
writeln;
writeln('Средний возраст по улице - ', sred_vozr);
end
else
writeln('Введена несуществующая улица');
end;    
begin
writeln('Исходная таблица');
input(l);
writeln('Введите элемент, после которого всё будет удалено(Вводить Ф.И.О.): ');
output(l);
readln(ylica);
// scaningPRYAKOL(l,ylica,sred_vozr);
// vyvod(sred_vozr);
// readln(name);
//Del
 
Scan_SingleList(l,p,name);
output(l);
dispose(l);
end.

Дело такое, мне нужно удалить всё, после указанного элемента, т.е. я ввожу Фамилию Имя Отчество, после этого должно быть всё удалено, а то что вверху, вывестись на экран, процедура "Del_SingleList" - она выполняет правильно свою работу, а вот Scan_SingleList что-то пошло не по плану..
Выручайте)file.txt

[ViktorR]

Подозреваю, что дело в передаче параметров.
Тут:

procedure Scan_SingleList(L: LIST; var p: position; name: string);

Затем, в этой процедуре, следует вызов:

Del_SingleList(l,p);

Но в вызове процедуры удаления:

procedure Del_SingleList(var L: LIST; var p: position);

В тех случаях, когда в процедуру передаются структуры (массивы и списки), которые не должны быть разрушены в этой процедуре, лучше использовать тип параметра const. В этом случае передаётся адрес структуры, но изменить значения компонента структуры не получится: контролирует компилятор.
Вместе с тем, при внутреннем вызове новой процедуры, в неё может быть передан адрес структуры и в вызываемой процедуре могут выполняться изменения.
PS: Но я этого не проверял

[Serge_Bliznykov]

Сообщение от Topse

т.е. я ввожу Фамилию Имя Отчество,

это где?

вот тут?

Сообщение от Topse

writeln('Введите элемент, после которого всё будет удалено(Вводить Ф.И.О.): ');
output(l);
readln(ylica);

В переменную ylica?
Ну, допустим.
А передаёте в процедуру SingleList что?

Сообщение от Topse

Scan_SingleList(l,p,name);

name?

я уже молчу про крайне неудачное название и вложенность процедур.
Почему процедура удаления вызывается из Scan_SingleList ? что вообще означает название процедуры? Отсканировать одиничный список?

[Serge_Bliznykov]

да, если что, после исправления, Ваш код работает.
Только учтите, что ваша процедура

procedure Del_SingleList(var L: LIST; var p: position);

удаляет не

Сообщение от Topse

после которого всё будет удалено

Она из списка L удаляет один элемент, на который показывает указатель p

если Вы посмотрите в код, где

  if (q^.element.FIO = name) then begin
        writeln(q^.element.Vozr:19,q^.element.Vozr:9,q^.element.adress:11);
        p:=q;
        Del_SingleList(l,p);
        end;

то поймете, что из списка будут удалены только те записи, у которых FIO совпадёт с переданным значением.

[digitalis]

Сообщение от Serge_Bliznykov

что вообще означает название процедуры? Отсканировать одиничный список?

Ну что поделать, если в источнике копипаста так оно называлось ?
"Вопрос: творчество Некрасова. Итак, Ф.М. Достоевский..."
Хорошо хоть нонешнее поколение юзверей научилось виртуозно использовать дуплет Ctrl/C Ctrl/V