кто понимает в Паскале? нужна помощь.

в общем может тут есть кто нит кто секёт в паскале лучше меня. ) у меня задание написать программу,которая будет находить из массива наименьшее число, с модулем больше 4-х. программу написал, но она почему-то находит наибольшее число, хз в чем косяк. вот тут код, может кто увидит в чем дело. )

program massiv1;
const num=20;
var
oper,
i,j:integer;
ms: array [1..num] of Real;
x,dx:real;
idet:integer;
MinV:real;
Label Menu,Solve,Beigas;
Label STEP1,STEP2;
begin
menu:
x:=0.27;dx:=0.345;
writeln;
writeln ('Programma domata ciklu operatoru un masivu apgusanai');
writeln ('3333 - beigt');
writeln ('1111 - rekinat ar standarta sakumvertibam');
writeln (' jebkurs cits skaitlis rekinat ar pasa uzdotam sakumvertibam');
read (oper);
if oper=3333 then goto Beigas;
if oper=1111 then goto Solve;
writeln ('ievadi divus realus skaitlus,tie noteiks masiva elem.vertibas');
read (x,dx);
Solve:
for i:=1 to num do
begin
ms:=10*sin(x);
x:=x+dx;
end; writeln;
for i:=1 to num do
begin
write (' "',i:2, '"',ms:10:5)
end;
writeln; writeln('lai turpinatu ievadi jebkuru skatli');
read(j);
STEP1:i:=5;
while (i<=17) do
begin
if (sqrt(ms*ms)<4) then
begin
MinV:= ms;
idet:=i;
goto STEP2
end
else
i:=i+2;
end;
writeln ('apskataamajaa kopaa elementu ar moduli lielaku par 4 nav');
{goto MENU;}
STEP2:
i:=5;
while(i<=17) do
begin
if (sqrt((ms*ms))<4) and (ms>MinV) then
begin
MinV:= ms;
idet:=i;
end;
i:=i+2;
end;
writeln ('minimalais elements ar moduli,lielaku par 4 apgabala:',MinV:10:5);
writeln('Si elementa indeks apgabala ir :',Idet:5);
goto Menu;
Beigas:
end.

он всё равно находит самое большое число, а надо самое маленькое.

попытался изменить формулу на abs он начал выдавать ошибки. ;/