Найти и вывести максимальный и минимальный элементы списка и их сумму

program spisok;
 
type
 
el = ^elem;
 
elem = record
value: integer;
next: el;
end;
 
var begg, minel, maxel  : el;
 val:integer;
 ch:char;
 
 
procedure create_chain;
var curr, tmpp;
begin
 
 new(begg);
 write('введите значение');
 readln(val);
 begg^.value:=val;
 writeln('хотите добавить следующий элемент?');
 ch:=readkey;
 curr:=begg;
 
 while ch<>'n' do begin
  new(tmpp);
  write('введите значение');
  readln(val);
  tmpp^.value:=val;
  curr^.next:=tmpp;
  curr:=curr^.next;
  writeln('хотите добавить следующий элемент?');
  ch:=readkey;
 end;
end;
 
function find_min:el;
var curr, minn:el;
x:integer;
begin
 curr:=begg;
 x:=curr^.value;
 
 repeat
  if curr^value<x then begin x:=curr^value; minn:=curr; end;
 until curr^.next = nil;
 
 find_min:=minn;
end;
 
function find_max:el;
var curr, maxx:el;
x:integer;
begin
 curr:=begg;
 x:=curr^.value;
 
 repeat
  if curr^value<x then begin x:=curr^value; maxx:=curr; end;
 until curr^.next = nil;
 
 find_max:=maxx;
end;
 
function delete_element(del:el);
var curr, prev:el;
begin
 if del = begg then begin
  begg:= begg^.next;
  free(del);
  exit;
 end;
 curr:=begg;
 while curr^.next<>del do curr:=curr^.next;
 prev:=curr;
 curr:=curr^.next^.next;
 prev^.next:=curr;
 free(del);
end;
 
 
 
 
begin
 create_chain;
 minel:=find_min;
 writeln('minimum : ',minel^.value);
 maxel:=find_max;
 writeln('maximum : ',maxel^.value);
 
 writeln('summa : ',maxel^.value + minel^.value);
 
 delete_element(minel);
 delete_element(maxel);
 
 minel:=begg;
 
 writeln('обновленный список');
 repeat
  write(minel^.value:5);
  minel:=minel^.next;
 untill minel=nil;
end.