type list Element учись нормально называть типы Element record Data1 i

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
type
list = ^Element; //учись нормально называть типы
Element = record
Data1: integer; //твоя структура
Data2: integer; //одного элемента
Next: list;
End;
procedure add(var first:list, val1 : integer, val2 : integer);// first - указатель на начало, val1 - поле1, val2 - поле два.
var
i:list; //Счетчик цикла
begin
new(i);//Выделяем память под i;
i^.next:=first;
first:=i;
i^.Data1:=val1;
i^.Data2:=val2;
end;
procedure del_by_value2(first:list, val:integer);//val- Значение поля2. Удалится первый встреченный элемент с таким полем2.
var
i,j:list;
begin
i:=first;
if i <> nil then
begin
while((i^.next)^.value<>val) i:=i^.next;
p:=i^.next;
i^.next:=p^.next;
dispose(p);
end;
procedure out(first:list);//Вывод списка
var
i:list;
begin
i:=first;
while(i<>nil) do
begin
writeln(i^.data1,' ',i^.data2);
i:=i^.next;
end;
end;