Ошибка вывода сообщений

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Math;
 
type
 
TVector=array [0..100] of integer;
 
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function Minimum (Vector:TVector; Count:byte):byte;
var
i:byte;
begin
Result:=0;
for i:=1 to Count do
if Vector[Result]<Vector[i] then Result:=i;
end;
 
 
procedure FillVector (var Vector:TVector; var count:byte);
var
i:byte;
begin
randomize;
Count:=random(16)+4;
for i:=0 to Count do
Vector[i]:=random(100)+1;
end;
 
procedure PrintVector (Vector:TVector; Count:byte);
var
i:byte;
begin
write('[');
for i:=0 to Count do
Write(Vector[i],' ');
Writeln(']');
end;
 
var
Vector:Tvector;
Count:byte;
begin
FillVector(Vector,Count);
PrintVector(Vector,Count);
WriteLn(Minimum(Vector,Count));
end.

ShowMessage('asdasd');

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
 
TVector=array [0..100] of integer;
 
function Minimum (Vector:TVector; Count:byte):byte;
var
i:byte;
begin
Result:=0;
for i:=1 to Count do
if Vector[Result]<Vector[i] then Result:=i;
end;
 
 
procedure FillVector (var Vector:TVector; var count:byte);
var
i:byte;
begin
randomize;
Count:=random(16)+4;
for i:=0 to Count do
Vector[i]:=random(100)+1;
end;
 
procedure PrintVector (Vector:TVector; Count:byte);
var
i:byte;
begin
write('[');
for i:=0 to Count do
Write(Vector[i],' ');
Writeln(']');
end;
 
var
Vector:Tvector;
Count:byte;
begin
FillVector(Vector,Count);
PrintVector(Vector,Count);
WriteLn(Minimum(Vector,Count));
ReadLn
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.