Работа с матрицами ( Delphi)

[Roody]

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

Даны две квадратных матрицы A(n,n) и B(n,n), n<=15. Разработать программу, которая строит и печатает вектор X(n) по правилу:X(i)=1 если элементы i-й строки матрицы A больше чем соответствующие элементы i-й строки матрицы B и X(i)=0 в других случаях.

[Stilet]

Покажи как матрицы вводишь.

[Roody]

randomize;
n:=StrToInt(Edit1.text);
for i:=0 to n-1 do
for j:=0 to n-1 do
begin
a[i,j]:=random(10)+1;
b[i,j]:=random(10)+1;
StringGrid1.Cells[j,i]:=Inttostr(a[i,j]);
StringGrid2.Cells[j,i]:=Inttostr(b[i,j]);

[Stilet]

for i:=0 to n-1 do x[i]:=1;
 for j:=0 to n-1 do begin
  a[i,j]:=random(10)+1;
  b[i,j]:=random(10)+1;
  if (x[i]<>0)and(a[i,j]<b[i,j]) then x[i]:=0;
...

Идея понятна?

[Roody]

если честно, то не очень(
и это все?

[Stilet]

А что еще? Если элементы строки массива не соответствуют условию - присвоить 0 иначе 1.

[Roody]

Хорошо, спасибо!

[Stilet]

Пожалуйста )