Составьте программу в pascal abc, которая заполняет массив а(1..10) случайными целыми...

Var
a: array[1..10] of integer;
i, max, imax, min, imin: integer;

begin
Randomize;
max := 0;min := 101;
Write('Исходный массив:        ');
for i := 1 to 10 do
begin
    a[i] := random(100) + 1;
    Write(a[i], ' ');
end;
Writeln();
For i:= 1 to 10 do begin
   if a[i] > max then
    begin
      max := a[i];
      imax := i;
    end;
    if a[i] < min then
    begin
      min := a[i];
      imin := i;
    end;
end;
swap(a[imax], a[imin]);
   Write('Преобразованный массив: ');
   For i:= 1 to 10 do
     Write(a[i], ' ');
   Writeln;
   Write('Я поменял местами ', imax, ' и ', imin, ' элементы');
end.