Определение максимального элемента массива.

[Дмитрий-7]

Доброго времени суток всему местному сообществу.

Суть моей проблемы в следующем:
Задали нам написать код программы на Delphi для поиска максимального элемента массива B и его порядкового номера (полный текст задания: "Определить максимальный элемент массива B и его порядковый номер при B(i)<0, K≤50").

Честно пытался сделать что-то сам, но так толком и не разобрался, а сроки уже поджимают... Может кто-то сможет объяснить какие операторы нужно вводить или поможет как-нибудь ещё.
Надеюсь, не откажете в помощи студенту-гуманитарию абсолютно не шарящему в математике и, следовательно, в программировании.
Заранее благодарю.

[unbanned]

вот примерно такая основная часть программы

bmax:=b[1]; imax:=1;
for i:=1 to n do
if b[i]>bmax then 
begin
bmax:=b[i]
imax:=i;
end;

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

[RUSt88]

program p;

const
  N = 15;

var
  mas: array[0..N] of Integer;
  i, max, imax: integer;

begin
  randomize();
  for i := 0 to N do begin
    mas[i] := rand(20) - 10;
    write(mas[i], #32);
  end;

  max = mas[0];
  for i := 0 to N do begin
    if (max < mas[i]) then begin
      imax := i;
      max := mas[i];
    end;
  end;

  writeln('Max element is ', max, '; him position is ', imax);
end;

накидал в блокноте, могу ошибаться _))