помогите пожалуйста)).

var i,max,min,n:integer;

begin

  readln(n);

  min:=n;max:=n;

  for i:=2 to 20 do

  begin

     readln(n);

     if ilt;=10 then begin if nlt;=min then min:=n; end;

     if igt;=10 then begin if ngt;=max then max:=n; end;

  end;

  write('min=',min,'  max=',max);

end.