program Project2; {$APPTYPE CONSOLE} uses SysUtils; var a:array[1..1000]of integer; i,j,min,k,c,n:integer; f1,f2:text; begin assign(f1,'tabel.txt'); reset(f1); assign(f2,'tabell.txt'); rewrite(f2); readln(f1,n); for i:=1 to n do readln(f1,a[i]); for i:=1 to n-1 do begin min:=a[i]; k:=i; for j:=i+1 to n do if a[j]