Giúp nhox với, khó wá à

Dim a:array [1..10] of integer
      i,min,max:integer;
Begin
      For i:=1 to 10 do begin
        Write('Nhap so thu ',i,': ');
        Readln(a[i]);
      End;
      min:=a[1];
      max:=a[1];
      For i:=2 to 10 do begin
        If a[i]<min then min:=a[i];
        If a[i]>max then max:=a[i];
      End;
      Writeln('So nho nhat: ',min);
      Writeln('So lon nhat: ',max;
      Readln;
End.

Dim max,min: integer;
    a[1..10]:array of integer;
Begin
  {nhập dữ liệu}
  max:=a[1];
  If max>a[2] then max:=a[2];
  If max>a[3] then max:=a[3];
  If max>a[4] then max:=a[4];
  If max>a[5] then max:=a[5];
  If max>a[6] then max:=a[6];
  If max>a[7] then max:=a[7];
  If max>a[8] then max:=a[8];
  If max>a[9] then max:=a[9];
  If max>a[10] then max:=a[10];
  min:=a[1];
  If min>a[2] then min:=a[2];
  If min>a[3] then min:=a[3];
  If min>a[4] then min:=a[4];
  If min>a[5] then min:=a[5];
  If min>a[6] then min:=a[6];
  If min>a[7] then min:=a[7];
  If min>a[8] then min:=a[8];
  If min>a[9] then min:=a[9];
  If min>a[10] then min:=a[10];
  Writeln('So nho nhat: ',min);
  Writeln('So lon nhat: ',max);
  Readln;
End.