Заполнить массив из 10 элементов случайными числами

program tt;
uses crt;
const
  Nmax=10;
var
  m:array[1..Nmax] of integer;
  i,i_min,i_max:byte;
  min,max:integer;
begin
  ClrScr;
  randomize;
  writeln('Исходный массив:');
  for i:=1 to Nmax do begin
    m[i]:=random(20)-10;
    write(m[i],' ');
  end;
  max:=m[1];
  min:=m[1];
  i_min:=1;
  i_max:=1;
  for i:=1 to Nmax do begin
    if m[i]>max then begin
      max:=m[i];
      i_max:=i;
    end;
    if m[i]<min then begin
      min:=m[i];
      i_min:=i;
    end;
  end;
  writeln;
  writeln('Максимальный элемент: ',max,' Его номер: ',i_max);
  writeln('Минимальный элемент: ',min,' Его номер: ',i_min);
  readln;
end.

program tt;
uses crt;
const
  Nmax=10;
var
  m:array[1..Nmax] of integer;
  i,i_max2,i_max1:byte;
  max1,max2:integer;
begin
  ClrSCr;
  randomize;
  writeln('Исходный массив:');
  for i:=1 to Nmax do begin
    m[i]:=random(20)-10;
    write(m[i],' ');
  end;
  max1:=m[1];
  max2:=m[1];
  i_max1:=1;
  i_max2:=1;
  for i:=1 to Nmax do begin
    if m[i]>max1 then begin
      max1:=m[i];
      i_max1:=i;
    end;
    if (m[i]>max2)and(i<>i_max1) then begin
      max2:=m[i];
      i_max2:=i;
    end;
  end;
  writeln;
  writeln('Максимальный элемент: ',max1,' Его номер: ',i_max1);
  writeln('Максимальный элемент: ',max2,' Его номер: ',i_max2);
  readln;
end.