Сожмите одномерный массив, удалив предшествующие минимальному элементу.
program Lex;
uses crt;
var m:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Vvedite kol-vo elementov massiva -> ');
readln(n);
write('Vvedite massiv ');
for i:=1 to n do read(m[i]);
readln;
min:=1;
for i:=1 to n do if m[i]<m[min] then min:=i;
for i:=1 to min-1 do m[i]:=m[i+min-1];
n:=n-min+1;
for i:=1 to n do write(m[i],'');
readln;
end.
Она работает правельно или нет ???