Сформировать линейный список, и проверить его на наличие заданного элемента. Нужны комментарии

type
List = ^Spisok;
Spisok = Record
next: List;
info: integer;
end;
 
var
p, q, q1: List;
i, m, n: integer;
k: boolean;
 
begin
repeat
write('Количество элементов: ');
readln(n);
until (n > 0);
 
writeln('Введите ', n, ' элементов');
for i := 1 to n do begin
read(m);
if q = nil then begin
new(q);
p := q;
p^.Next := nil;
q^.info := m;
end
else begin
new(p^.Next);
p := p^.Next;
P^.Info := m;
p^.Next := nil;
end;
end;
 
write('Введите заданный элемент: ');
readln(m);
p := q;
k := false;
 
while (p <> nil) and not(k) do begin
if p^.info = m then begin
k := true;
break;
end;
p := p^.next;
end;
 
if k then 
writeln('В списке элемент ', m, ' присутствует')
else 
writeln('В списке элемент ', m, ' отсутсвует');
 
p := q;
while p <> nil do begin
q1 := p;
p := p^.Next;
Dispose(q1);
end;
end.

type
  { Создание ссылочного типа для создания списка }
  List = ^Spisok;
  Spisok = Record
    next: List;
    info: integer;
  end;
 
var
  p, q : List;
  i, m, n: integer;
  k: boolean;
 
begin
  { Ввод значения n с контролем (чтобы было положительное число) }
  repeat
    write('Количество элементов: ');
    readln(n);
  until (n > 0);
  
  q := nil;
  writeln('Введите ', n, ' элементов');
  for i := 1 to n do 
    begin
      read(m);
      if q = nil then
        begin new(q); p := q; end { добавление новой записи в голову списка }
      else
        begin new(p^.next); p := p^.next; end; { добавление новой записи в хвост списка }
      p^.info := m;
    end;
  p^.next := nil;
  
  write('Введите заданный элемент: ');
  readln(m);
  p := q;
  k := false;
  
  while (p <> nil) and not (k) do { пока существующая ссылка и ложный флаг }
    if p^.info = m then { это то, что искали }
      k := true { выставляем флаг }
    else
      p := p^.next; { переходим к следующему }
  
  if k then 
    writeln('В списке элемент ', m, ' присутствует')
  else 
    writeln('В списке элемент ', m, ' отсутсвует');
  
  { очищаем список }
  while q <> nil do 
    begin
      p := q;
      q := q^.next;
      Dispose(p);
    end;
end.