输入20个数求最大最小值

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   label 1;
var x,max,min :real;
   i:integer;
begin
    1:   write('输入20个实数');
       writeln;
   read(x);

   max:=x;
   min:=x;
   for i:=2 to 20 do
   begin
   read(x);
  if i mod 5 = 0
   then writeln;
   if x>max
   then max:=x
   else if x<min then min:=x
   end;
   writeln('max=',max  , 'min=',min);
   goto 1 ;
end.