Используя списки, найти максимальный элемент и вставить перед ним последний. Последний - удалить

program var26(input, output);
type
SV=^zap;
zap=record elem: integer;
            next: SV;
            end;
var
max,i:integer;
K:integer;
Unach,U1,q:SV;
FLAG:boolean;
procedure VVOD_CHISLA(var A:integer; var FL:boolean);
  var
  k:boolean;
  c:char;
  begin
  A:=0;
  Fl:=true;
  k:=true;
  repeat
  read(c);
    if c='-' then k:=false;
    if (c<>' ') and (c<>'.') and (c<>',') and (c<>'-') then begin A:=10*A+(ord(c)-ord('0')); end;
    if c='.' then begin c:=','; FL:=false; end;
    until c=',';
  if not K then A:=(-1)*A;
end;
begin
new(Unach);
Unach^.next:=nil;
U1:=Unach;
Flag:=true;
while Flag=true do begin
    VVOD_CHISLA( i, flag);
    if U1=Unach then max:=i;
    new(U1^.next);
    U1:=U1^.next;
    U1^.elem:=i;
    if i>max then max:=i;
    U1^.next:=nil;
    write(i,',');
end;
writeln;
new(q);
q^.elem:=U1^.elem;
writeln(q^.elem);
U1:=Unach^.next;
while U1<>nil do begin
    if U1^.next^.elem=max then begin q^.next:=U1^.next; U1^.next:=q; end;
    if U1^.next^.next=nil then dispose(U1^.next);
    U1:=U1^.next;
    end;
writeln(max);
U1:=Unach^.next;
while U1<>nil do begin
    write(U1^.elem,' ');
     U1:=U1^.next;
    end;
end.