Поменять местами минимумы первой и второй половин массива

program y;
var A:array[1..10] of integer;
N,min,i:integer;
    begin
write('введите количество членов массива от 1 до 60 N= ');
readln(N);
begin
for i:=1 to N do
begin
min:=0;
write('введите,',i,'член массива = ');
readln(A[i]);
end;
end;
for i:=1 to N div 2 do
min:=min+A[i];
for i:=(N div 2)+1 to N do
A[i]:=min;
for i:=1 to N do
writeln (i,'элемент массива=',A[i]);
end.

program y;
var
  A:array[1..60] of integer;
  t,N,min1,min2,im1,im2,i:integer;
begin
  write('введите количество членов массива от 1 до 60 N= ');
  readln(N);
  for i:=1 to N do
    begin
{      write('введите,',i,'член массива = ');
      readln(A[i]);}
      a[i]:=random(n);
      write(a[i]:4);
    end;
  writeln;
  for i:=1 to N do
    writeln (i,'элемент массива=',A[i]);
  min1:=a[1]; im1:=1;
  for i:=1 to N div 2 do
    if a[i]<min1 then
      begin
        min1:=a[i];
        im1:=i;
      end;
 
  min2:=A[N div 2 +1];
  for i:=(N div 2)+1 to N do
    if a[i]<min2 then
      begin
        min2:=a[i];
        im2:=i;
      end;
  writeln('1-й min: ',min1,', 2-й min: ',min2);
  t:=a[im1];
  a[im1]:=a[im2];
  a[im2]:=t;
  for i:=1 to N do
    writeln (i,'элемент массива=',A[i]);
 
  readln;
end.