program praktika;
uses crt;
var
a: array[1..50] of integer;
t,i,k,n,min,i_min: integer;
begin clrscr;
 writeln('прога...');
 repeat
  writeln('введите n, 1<n<=50');
   readln(n);
 if (1<n) and (n<=50) then
  until (1<n) and (n<=50);
   for i:=1 to n do
    begin
    writeln('введите элементы массива');
     readln(a[i]);
      end;
     write('исходный массив');
      for i:=1 to n do
       write(a[i]);
       min:=a[1];
       i_min:=1;
        for i:=2 to n do
         if min>a[i] then
        a[min]:=a[i];
        i_min:=i;
        writeln('Минимальный элемент');
        writeln(min);
        writeln('введите число');
        readln(t);
        k:=t;
        t:=a[min];
        a[min]:=k;


       write('Изм массив');
       for i:=1 to n do
       write(a[i]);
       readkey;

end.