Матрица в Delphi

[sPan4eZ]

Народ всем доброе время суток!!!

Вот две задачки как сделать без понятие в матрицах не силен да и не сталкивался с этим!!! Дайте ваши советы !!! Что и как сделать !!!

1 задание
Даны натуральное число п и символьная квадратная матрица порядка п. Получить последовательность b1, ..., bn из нулей и единиц, в которой bt = 1 тогда и только тогда, когда в i-й строке число символов звездочка * не меньше числа пробелов.

2 задание
Дана вещественная матрица A размером п×n. Построить массив B, каждый элемент которого принимает значение true, если в строке матрицы A существует элемент, делящий ее на две части с одинаковой суммой элементов в каждой.

За ранее благодарен!!!

[Stilet]

На первую приблизительно так:

  const n=5;
  var a:array[1..n,1..n] of char;
  s,z,q,w:byte;
begin
 {Мaтрицу введешь в двух циклах сам}
 for q:=1 to n do begin s:=0;z:=0;
  for w:=1 to n do begin
   if a[q,w]=' ' then inc(s);
   if a[q,w]='*' then inc(z);
  end;
  if s<=z then write(1) else write(0);
 end;
  { TODO -oUser -cConsole Main : Insert code here }
  readln;
end.

Надеюсь смысл ясен...

[sPan4eZ]

Люди а как разбить ячейку стрин грида по символам?

Народ вот написал код но выдает ошибку

[Error] Unit1.pas(51): Incompatible types

И показывает после then (останавливается тут курсор) inc(s)

var
  i,p,s,z : integer;
begin
  s:=0;
  z:=0;
  for i := 0 to stringgrid1.ColCount - 1 do  begin
     for p := 0 to stringgrid1.RowCount - 1 do
  begin
    Edit2.Text := stringgrid1.cells[i, p];
      begin
        if length (edit2.Text) = ' '
          then inc(s)
          else inc (z);
      end;
  end;

Что не то тут?

[sPan4eZ]

Все поправил вопросов не имеется