Создание оболочки к программе с массивом (Delphi)

[Kawun]

Добрый день.

Есть задача:
При заданных X1, X2....Xn и Y1, Y2....Yn
получить массив T1, T2....T3
элементы которого получают значения по правилу Ti = max(Xi, Yi)
и подсчитать, сколько элементов Ti получило значение Xi.

А это ее код:

procedure TForm1.Button1Click(Sender: TObject);
Const
NMAX = 20; {Максимальное кол-во элементов массива}
Type
TMas = Array [1..NMAX] of Real; {Диапазон значений массива и тип переменных в массиве}
Var
X: TMas; {Исходный массив}
Y: TMas; {Исходный массив}
T: Tmas; {Массив который нам надо получить}
N: Integer; {Кол-во элементoв массива}
I: Integer; {Параметр цикла}
KolX: Integer; {Счетчик}
begin
N := StrToInt(EditN.Text); //Задаем N (Кол-во элементов массива)
For I:=1 To N Do 
  Begin
    X[I] := StrToFloat(StringGrid1.Cells[I-1, 0]); // Вводим X
    Y[I] := StrToFloat(StringGrid1.Cells[I-1, 1]); // Вводим Y
End;
KolX:=0; //Присваиваем счетчику 0 
For I:=1 To N Do
  If X[I]>Y[I]
    Then
    Begin 
T[I]:=X[I];
KolX:=KolX+1; 
End 
Else 
T[I]:=Y[I];
EditR.Text:=IntToStr(KolX); //Вывод результата
end; 
end

Код программы компилируется и вроде как должен считать все верно.
Но у меня не получается этот самый код прикрутить к оболочке.

Уважаемые, может кто-нибудь из Вас создать оболочку к этому коду и выложить куда-нибудь? (например zalil.ru)
Помогите пожалуйста, горю :-(

[Kawun]

Все еще актуально.
Помогите, пожалуйста