В одномерном массиве A(N)  найти min элемент и удалить его. Язык паскаль.

program z1; var a:array[1..100] of integer;         i,n,k,mi,miu:integer; begin         assign(input,'in.txt');         reset(input);         readln(n);         for i:=1 to n do begin                 read(a[i]);         end;         close(input);         mi:=a[1];miu:=1;         for i:=1 to n do begin                 if a[i]