Делфи.Текстовые файлы!

[Марат05]

Задача в Delfi.
1.Условие:Есть ли в данном массиве столбец,в котором равное количество четных и нечетных элементов;
Вот массив:
1 1 1 1 1 1
1 2 3 4 5 6
1 3 6 10 15 21
1 4 10 20 35 56
1 5 15 35 70 126
1 6 21 56 125 252

помогите решить эту задачу,работа с текстовыми файлами.

[Яська]

попробуй вот этот код:

procedure TForm1.Button1Click(Sender: TObject);
var M:array [0..5, 0..5] of integer;
i, n , k, j:integer;
begin

For j:=0 to 5 do
 begin
    k:=0; n:=0;
  For i:=0 to 5 do
   begin

    if M[j,i] mod 2=0 then inc(k) else inc(n);
    end;
   end;
   If k=n then  ShowMessage('Есть') else ShowMessage('Нет ');
end;

end.

[Марат05]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TForm1=array of array of integer;

procedure TForm1.Button1Click(Sender: TObject);
var M:array [0..5, 0..5] of integer;
i, n , k, j:integer;
begin

For j:=0 to 5 do
begin
k:=0; n:=0;
For i:=0 to 5 do
begin

if M[j,i] mod 2=0 then inc(k) else inc(n);
end;
end;
If k=n then ShowMessage('Есть') else ShowMessage('Нет ');
end;
readln;
end.

Жалуется вот на это.

[Error] Project1.dpr(11): Identifier redeclared: 'TForm1'
[Error] Project1.dpr(25): Undeclared identifier: 'ShowMessage'
[Error] Project1.dpr(27): Declaration expected but identifier 'readln' found

[Stilet]

Еще бы... Тебе оконное приложение дали, а ты его в консоль втюхать пытаешся.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var M:array [0..5, 0..5] of integer;
i, n , k, j:integer;

begin
For j:=0 to 5 do
begin
k:=0; n:=0;
For i:=0 to 5 do
begin
if M[j,i] mod 2=0 then inc(k) else inc(n);
end;
end;
 If k=n then write('Есть') else write('Нет ');
end;
readln;
end.