Дан одномерный массив из 10 чисел, определить max. и min. — Pascal(Паскаль)

uses crt;
var a:array[1..10] of integer;
i,max,min:integer;
begin

randseed:=1;
writeln('Massiv a=');
   for i:=1 to 10 do
     begin
       a[i]:=random(100);
       write(a[i],' ');
     end;
     writeln;
     max:=a[1];
     for i:=2 to 10 do
     if max<a[i] then max:=a[i];
     min:=a[1] ;
     for i:=2 to 10 do
     if min>a[i] then min:=a[i];
     writeln('max= ',max,' min = ',min);

end.