Определить средний рост мальчиков.(Delphi)

[Студен-т]

Одномерный массив.
19.Рост учеников в классе представить в виде массива H(25), при этом рост девочек кодировать знаком +, рост мальчиков знаком -. Определить средний рост мальчиков.
Наработки отсутствуют, так как не сильно понимаю в массивах, точнее сказать вообще не понимаю..

[Stilet]

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };

type

  { TMyApplication }

  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
    procedure WriteHelp; virtual;
  end;

{ TMyApplication }

procedure TMyApplication.DoRun;
var   h:array[1..25] of integer; s,k,i:integer;
  ErrorMsg: String;
begin
  // quick check parameters
  ErrorMsg:=CheckOptions('h','help');
  if ErrorMsg<>'' then begin
    ShowException(Exception.Create(ErrorMsg));
    Terminate;
    Exit;
  end;

  // parse parameters
  if HasOption('h','help') then begin
    WriteHelp;
    Terminate;
    Exit;
  end;
  s:=0;   k:=1; 
  { add your program here }
  for i:=low(h) to High(h) do begin
   h[i]:=50-Random(100);
   if h[i]<0 then begin s:=s+abs(h[i]); inc(k);end;
   if h[i]<0 then   writeln('Man = ',h[i]:5) else writeln('Maiden = ',h[i]:5)
  end;
  write('средний рост мальчиков = ',s/k:10:2);
  readln;
  // stop program loop
  Terminate;
end;

constructor TMyApplication.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  StopOnException:=True;
end;

destructor TMyApplication.Destroy;
begin
  inherited Destroy;
end;

procedure TMyApplication.WriteHelp;
begin
  { add your help code here }
  writeln('Usage: ',ExeName,' -h');
end;

var
  Application: TMyApplication;
begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
end.

[Студен-т]

Не могли бы вы написать ее для делфи?
А то паскаль проходил в школе и оооочень давно)

[Stilet]

Меня глаза подводят, или я внатуре видел в топе темы указание о Лазарусе?

[Студен-т]

Блин затупил жестоко.