Из консоли в форму

[Незлобин]

Доброго времени суток, пожалуйста помогите сделать из консоли, форму

Сформируйте двумерный массив N*N по следующему правилу: элементы главной диагонали приравнять 1, ниже главной диагонали 0, а выше сумма индексов.


program Job1;

{$APPTYPE CONSOLE}

{

1)Сформируйте двумерный массив N*N по следующему правилу:
элементы главной диагонали приравнять 1,
ниже главной диагонали 0, а выше сумма индексов.

}
uses
Windows, Variants;

const
MaxLen = 16;


function ToOEM(aStr: AnsiString): AnsiString;
begin
SetLength(Result, Length(aStr));
CharToOem(PAnsiChar(aStr), PAnsiChar(Result));
end;

var
Matrix: Variant;
r,c, Len: Integer;

begin
while True do begin
Write(ToOEM('Введите размер матрицы N x N (1 <= N <= '), MaxLen, ') :');
ReadLn(Len);
if (Len >= 1) and (Len <= MaxLen) then Break;
end;

Matrix := VarArrayCreate([1,Len,1,Len], varInteger);

// заполнение массива
for r := 1 to Len do
for c := 1 to Len do
if r = c then
Matrix[r,c] := 1
else if r > c then
Matrix[r,c] := 0
else
Matrix[r,c] := r + c;

// вывод массива
for r := 1 to Len do begin
for c := 1 to Len do
Write(Matrix[r,c]:3, ' ');
WriteLn;
end;

ReadLn;

end.

[Незлобин]

апочки , очень надо Для примера нужно сделать 1 задачу

[Alex2009]

В каком смысле из консоли форму?

[Незлобин]

Из Console Application в Form

[Alex2009]

Я не пойму тебе что нужно,сделать из консоли форму???
Или сделать такой же код но что бы на форме работал??

[Незлобин]

мне нужно решить задачу
Сформируйте двумерный массив N*N по следующему правилу: элементы главной диагонали приравнять 1, ниже главной диагонали 0, а выше сумма индексов.
в форме
сорри за тупость