поменяет местами минимальный и максимальный элемент массива

uses crt;
    var A:array[1..10] of integer;
        i,max,min:integer;
begin
  min:=1;max:=1;
  for i:=2 to 10 do
  Begin
    if (A[i] > A[max]) then max:=i;
    if (A[i] < A[min]) then min:=i
  End;
  i:=A[max];
  A[max]:=A[min];
  A[min]:=i;
  Readln;
end.

Program terrabyte;
Uses crt;
type mas = array[1..10] of integer;
Var a:mas;
    i,k,l1,l2,min,max:integer;
Procedure Obmen(Var a:mas; l1, l2 : integer);
Var x : integer;
Begin
  x:=a[l1];
  a[l1]:=a[l2];
  a[l2]:=x;
End;
Procedure obrab(a:mas; var i,k,l1,l2,min,max:integer);
begin
min:=a[1];
for i:=2 to 10 do
  begin
     if min>a[i] then
       min:=a[i];
  end;
max:=a[1];
for i:=2 to 10 do
  begin
     if max<a[i] then
       max:=a[i];
  end;
  l1:=1;
 for i:=1 to 10 do begin
  if a[i]>a[l1] then
   l1:=i;
   end;
   l2:=1;
 for i:=1 to 10 do begin
  if a[i]<a[l2] then
   l2:=i;
   end;
end;
Begin ClrScr;
Randomize;
Writeln('Исходный массив:');
For i:=1 to 10 do begin
a[i]:=random(100);
write(a[i],' ');
end;
obrab(a,i,k,l1,l2,min,max);
writeln;
writeln('max: ',max);
writeln('min: ',min);
Obmen(a,l1, l2);
writeln('Конечный массив:');
For i:=1 to 10 do begin
write(a[i],' ');
end;
readkey
end.