Написать программу, которая: Проверяет, есть ли в списке L хотя бы 2 одинаковых элемента. Переворачивает список L — Pascal(Паскаль)

type
  sp = ^el;
  el = record
    inf: integer;
    next: sp;
  end;
 
var
  p, q: sp;
  k, i, n, element: integer;
 
begin
  writeln('kol-vo elementov?');
  readln(n);
  for i := 1 to n do 
  begin
    writeln('vvedite element');
    readln(element);
    new(q);
    q^.inf := element;
    q^.next := p;
    p := q;
  end;
  while p <> nil do
  begin
    writeln(p^.inf);
    p := p^.next;
  end;
  p:=q;
  repeat
    while q^.next <> nil do
    begin
      q := q^.next;
      if p^.inf = q^.inf then k := 1;
    end;
    q := p^.next;
    p := q;
  until p = nil;
  if k = 1 then writeln('est odinak-e el') else writeln('el-ov net');
  readln;
end.