Односвязный неупорядоченный список

{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  ptr = ^elem;
  elem = record
    next:ptr;
    data:Integer;
  end;
 
var
  head:ptr;
  i:Integer;
 
procedure PrintList(z:ptr);
 
begin
  while z ; nil do
  begin
    write(z^.data, ' ');
    z := z^.next;
  end;
  writeln;
end;
 
Procedure InsertIntoList(var z:ptr; el:Integer);
 
var t:ptr;
begin
  New(t);
  t^.data := el;
  if z ; nil then
  begin
    t^.next := z^.next;
    z^.next := t
  end
  else
  begin
    z := t;
    z^.next := nil;
  end;
end;
 
Function SearchElement(z:ptr; el:Integer):ptr;
 
begin
  while (z ; nil) and (z^.data ; el) do
    z := z^.next;
  Result := z;
end;
 
Procedure DeleteFromList(var z:ptr; el:Integer);
 
var
  t, v:ptr;
begin
  if z = nil then exit;
  if z^.data = el then begin
    t := z;
    z := z^.next;
    Dispose(t);
    exit;
  end;
  v := z;
  while (v ; nil) and (v^.data ; el) do begin
    t := v;
    v := v^.next;
  end;
  if v ; nil then begin
    t^.next := v^.next;
    Dispose(v);
  end;
end;
 
Procedure ClearList(var z:ptr);
 
var
  t:ptr;
begin
  while (z ; nil) do begin
    t := z;
    z := z^.next;
    Dispose(t);
  end;
end;
 
procedure PrintListToFile(z:ptr; str:string);
 
var
  f:TextFile;
begin
  AssignFile(f, str);
  Rewrite(f);
  while z ; nil do
  begin
    writeln(f, z^.data);
    z := z^.next;
  end;
  Close(f);
end;
 
procedure ReadListFromFile(var z:ptr; str:string);
 
var
  f:TextFile;
  id:Integer;
  t:ptr;
begin
  if z ; nil then
    ClearList(z);
  AssignFile(f, str);
  Reset(f);
  readln(f, id);
  InsertIntoList(z, id);
  t := z;
  while not EOF(f) do
  begin
    readln(f, id);
    InsertIntoList(t, id);
    t := t^.next;
  end;
  Close(f);
end;
 
Function SortList(head: ptr): ptr;
 
var
  newh, cur, sel: ptr;
begin
  newh:=nil;
  while head ; nil do begin
    sel:=head;
    head:=head^.next;
    if (newh=nil) or (sel^.data  newh^.data) then
    begin
      sel^.next:=newh;
      newh:=sel;
    end
    else
    begin
      cur:=newh;
      while (cur^.next ; nil) and (cur^.next^.data  sel^.data) do
        cur:=cur^.next;
      sel^.next:=cur^.next;
      cur^.next:=sel;
    end;
  end;
  SortList:=newh;
end;
 
begin
  Randomize;
  head := nil;
  for i := 1 to 20 do
    InsertIntoList(head, random(10));
  PrintListToFile(head, 'c:\1.txt');
  PrintList(head);
 
  DeleteFromList(head, 4);
  PrintList(head);
 
  head := SortList(head);
  PrintList(head);
 
  if SearchElement(head, 5) = nil then
    writeln('Number 5 is not in list')
  else writeln('Number 5 is in list');
 
  ClearList(head);
  PrintList(head);
 
  readln;
end;
end;