Матрицы

[LerNov]

Здравствуйте) Никак не разберусь с матрицей, точнее с формирование последовательности)

Пусть даны натуральное число n, вещественное число х, вещественная матрица размером n х m. Получите последовательность b1 , b2 , ..., bn из нулей и единиц, где bi = 1, если элементы i-й строки матрицы не превосходят х, и bi = 0 в противном случае.

program zadanie5;
Type
  Matrix=Array [1..10, 1..10] of Real;
Var
  i,j: Integer;
  n, m: Integer;
  A: Matrix;
  x,b: Real;
Begin
  Repeat
  Writeln ('Введите число строк N, N<=10');
        Readln (N);
    Writeln ('Введите число столбцов M, M<=10');
        Readln (M)
  Until N and M in [2..10];
    Writeln ('Введите матрицу по строкам');
    for i:=1 to N do
        for j:=1 to M do
            Read (A[i,j]);
    Writeln ('Исходная матрица A');
    for i:=1 to N do
     Begin
        for j:=1 to M do
            Write (A[i,j]:8:1);
        Writeln
     end;
    Writeln ('Введите x');
    Readln (x);
      for i:=1 to N do
        if A[i,j]<=x then
        b=1
        else
        b=0;
            Read (b);
               Writeln ('Исходная последовательность b');
               Write (b[i]:8:1);
               Writeln
End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[LerNov]

Ребят, ну пожалуйста)) только на вас надежда)

[BDA]

Type
  Matrix = Array [1 .. 10, 1 .. 10] of Real;

Var
  i, j, b, n, m: Integer;
  A: Matrix;
  x: Real;

Begin
  Repeat
    Writeln('Введите число строк N, N<=10');
    Readln(n);
    Writeln('Введите число столбцов M, M<=10');
    Readln(m)
  Until (n in [2 .. 10]) and (m in [2 .. 10]);
  Writeln('Введите матрицу по строкам');
  for i := 1 to n do
    for j := 1 to m do
      Read(A[i, j]);
  Writeln('Исходная матрица A:');
  for i := 1 to n do
  Begin
    for j := 1 to m do
      Write(A[i, j]:8:1);
    Writeln
  end;
  Write('Введите x: ');
  Readln(x);
  Writeln('Последовательность B:');
  for i := 1 to n do
  begin
    b := 1;
    for j := 1 to m do
      if A[i, j] > x then
      begin
        b := 0;
        break;
      end;
    write(b, ' ');
  end;
  Writeln;
  Readln;
End.

[LerNov]

Спасибо-спасибо-спасибо)))))