Поиск в массиве, одномерный Опции

[Дима]

program lab01;
uses crt;
var i,sh:integer;
    m:array[1..50] of real;
    max:integer;

const a=-150;
      b=150;
begin
ClrScr;
writeln('zadaetsta masiv sluchainim obrazom -150 do 150 ');
writeln('Najmite  <ENTER> dlyz generacii');
readln;
randomize;

for i:=1 to 50 do begin m[i]:=random(b-a)+a;
			write(m[i]:3 :0,'....');
			sh:=sh+1;

			if sh=10 then begin
				readln;
				writeln;
				sh:=0;
				end;



			end;
max := 0;

for i := 1 to 50 do
 if (m[i] < 0) and (abs(m[i]) > abs(m[max])) then max := i;

writeln('i = ', max, ' m[', max, '] = ', m[max]:3 :0);
readln;
end.

Дан неупорядочный массив, найти максимальный отрицательный элемент по модулю, мне вот кто-то помог на этом сайте с помощью пиременной макс вот в таком ввиде, кто может объясните пожалуйста какая смысловая нагрузка на переменну max т.е что за что отвечает немогу понять как оно работает! пожалуйста подскажите, я вот читал про линейный поиск ну что то не понял, почему max=0? и не может принять значение real

[Дима]

да вот что то не понятно, я ему вначале сделал как ты сказал т.е нашел самый минимальный отриц элемент, он мол говорит это не по модулю, вот я решил по другому сделать, спасиб ну вроде что то понял!