Одномерный массив

program example2;
var n,i:integer;
xmax,xmin,imax,imin:real;
x:array[1..20] of real;
begin
    writeln('ввести кол-во элементов');
    readln(n);
    for i:=1 to n do
      writeln('ввести элементы');
    xmax:=x(1);
    imax:=i;
    xmin:=x(1);
    imin:=i;
    for i=2 to n do
      if x(i)>xmax then
        xmax:=x(i); imax:=i
      else
        if x(i)<xmin then
          xmin:=x(i); imin:=i
        else
        begin
        end;
    read(xmax,imax,imin,xmin);
    imax:=imin; imin:=imax;;
    read(i:=1 to n);
    writeln('вывод x(i)');
end.

program example2;
var n,i,min,max:integer;
b:real;
x:array[1..20] of real;
begin
    writeln('ввести кол-во элементов');
    readln(n);
      writeln('ввести элементы');
    for i:=1 to n do read(x[i]);
    readln;
 
    max:=1;
    min:=2;
    for i=1 to n do
      if x[i]>x[max] then imax:=i
      else
        if x[i]<x[min] then imin:=i;
 
  b:=x[min];
  x[min]:=x[max];
  x[max]:=b;
 
  writeln('Массив:');
  for i:=1 to n do write(x[i]:3:3);
  readln;
end.