Здравствуйте Анастасия! И зачем Вам этот неоправданно большой код? Но держите.
[code lang=pascal]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
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;

{ add your program here }

// 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;
a,i,n,kolchet,kolnechet:integer;
begin
Application:=TMyApplication.Create(nil);
Application.Title:='My Application';
Application.Run;
Application.Free;
repeat
write('Количество чисел для ввода n>0 n=');
readln(n);
until n>0;
KolChet:=0;
KolNechet:=0;
for i:=1 to n do
begin
write('Введите целое число a=');
readln(a);
if a mod 2=0 then kolchet:=kolchet+1 else kolnechet:=kolnechet+1;
End;
writeln ('Количество четных=',kolchet,' Количество нечетных=',kolnechet);
readln
end. [/code]
Установить русский язык так же как в предыдущем ответе.