помогите составить программу

[ilia,01230123]

помогите пожалуйста составить программу в Pascal abc
нужно составить массив из 10 рандомных чисел и найти самое меньшее и самое большее число

[newerow1989]

var i,min,max:integer;
    p:array[1..10] of integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(21);
      Write(p[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   min:=p[1];
   max:=p[1];
   For i:=2 to 10 do
   begin
      If min>p[i] then
         min:=p[i];
      If max<p[i] then
         max:=p[i];
   end;
   Writeln('min = ',min);
   Writeln('max = ',max);
   Readln;
end.