Помогите пожалуйста с матрицей

[kot_928]

Доброго времени суток. Помогите пожалуйста с матрицей. Есть свои наработки, но все же появляется куча ошибок, которых я не совсем понимаю. Проблемы появляются в процедуре Button2. Вот тема:Дана символьная квадратная матрица порядка n. Получить последовательность bi....bn из нулей и едениц, в которой bi=1, когда в i-ой строке число символов не меньше пробелов.

А вот некоторые наработки:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var //объявляем переменные
i,j:Byte;
A:array[1..5,1..5] of Char;
begin
randomize ; //генератор случайных чисел
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
A[1,1]:='B';
A[1,2]:='C';
A[1,3]:='N';
A[1,4]:='E';
A[1,5]:='D';
A[2,1]:= ' ';
A[2,2]:=' ';
A[2,3]:='O';
A[2,4]:=' ';
A[2,5]:='D';
A[3,1]:=' ';
A[3,2]:=' ';
A[3,3]:='T';
A[3,4]:=' ';
A[3,5]:='V';
A[4,1]:='U';
A[4,2]:=' ';
A[4,3]:='H';
A[4,4]:=' ';
A[4,5]:='L';
A[5,1]:=' ';
A[5,2]:='H';
A[5,3]:=' ';
A[5,4]:='K';
A[5,5]:=' ';
//забиваем массив
StringGrid1.Cells[i-1,j-1]:=(A[i,j]); //выводим
end;
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var //объявляем переменные
i,j,k:Byte;
A:array[1..5,1..5] of Char;
b:array[1..5] of byte;
c:array[1..5] of byte;
begin
for i:=1 to 5 do
begin
k:=0;
for j:=1 to 5 do
begin
if ord(A[i,j])<=90 and ord(A[i,j]>=65
then k:=k+1;
c[i]:=k;
end;
begin
for i:=1 to 5 do
begin
m:=0;
for j:=1 to 5 do
A[i,j]:=StringGrid1.cells[i-1,j-1];
if ord(A[i,j])=32 then
m:=m+1;
b[i]:=m;
end;
begin
for i:=1 to 5 do
begin
if c[i]>b[i] then
x[i]:=0;
else
x[i]:=1;
end;
end;
end;
end;


procedure TForm1.Button3Click(Sender: TObject);
var //объявляем переменные
i,j:Byte;
begin

for i:=1 to 100 do
begin
for j:=1 to 100 do
begin
StringGrid1.Cells[i-1,j-1]:=' ';
StringGrid2.Cells[i-1,j-1]:=' ';
StringGrid3.Cells[i-1,j-1]:=' ';
end;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;
end.

[kot_928]

Ну что, ни кто не может помоч что ли?