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

STEP1:
i:=5;
while(i<=17) do
begin
if (sqrt((ms[i]*ms[i]))<4) then
begin
MinV:= ms[i];
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[i]*ms[i]))>4) and (ms[i]> Minv)) then
begin
MinV:= ms[i];
idet:=i;
end;
i:=i+2;
end;
writeln(' Minimalais elements ar moduli, lielaku par 4 apgabala:',MinV:10:5);
writeln(' Si elementa indeks apgabalaa ir :', idet:5);

а от тут лежит сам файл для паскаля,может кому надо.
http://dump.ru/file/3823309

12 строчка снизу
i:=43;
пробуй

автор ну чё ты там? получилось? отпиши и я снесу тему