дано масів А(1...n, 1...m) скласти програму пошуку всіх його елементів, що знаходяться між a та b

Тркалезни ти загради во димензија на низата се движи на индексите со точки.
Тоа дефинитивно не е Паскал, не Си, не FORTRAN, не BASIC или не Алгол.
Имам само една сугестија дека програмата што сакате да пишувате во овој јазик:

with
Ada.Text_IO,
Ada.Numerics.Float_Random;
procedure N71561053 is
package Rnd renames Ada.Numerics.Float_Random;
package F_io is new Ada.Text_IO.Float_IO(Float);
use Ada.Text_IO, Rnd, F_io;
G:Generator;
m, n:Integer;
begin
Reset(G);
n := Integer(Random(G) * 8.0) + 2;
m := Integer(Random(G) * 9.0) + 2;
declare
A:array(1..n, 1..m) of Float;
C:Character;
k:integer := 0;
a_bound, b_bound:Float;
begin
Put_Line("Со оглед на низа елементи A(" & Integer'Image(n) & " x" & Integer'Image(m) & " ):");
for i in A'Range loop
for j in A'Range(2) loop
A(i,j) := Random(G) * 199.98 - 99.99;
Put(A(i,j),4,2,0);
end loop;
New_Line;
end loop;
a_bound := -Random(G) * 100.0;
b_bound := Random(G) * 100.0;
Put("Ние им даде број a = "); Put(a_bound,1,2,0); New_Line;
Put("Ние им даде број b = "); Put(b_bound,1,2,0); New_Line;
Put_Line("Сите пронајдени елементите меѓу a и b:");
for i in A'Range loop
for j in A'Range(2) loop
if A(i,j) > a_bound and then A(i,j) < b_bound then
Put(A(i,j),5,2,0);
k := k + 1;
end if;
end loop;
end loop;
New_Line;
Put_Line("Вкупно елементи со вредност помеѓу a и b:" & Integer'Image(k));
Get_Immediate(C);
end;
end N71561053;

Среќно со превод на природниот јазик и програмски јазик. Патем, зборот "низа" погрешно напишани вас.

пиши на РУССКОМ!
for i:=1 to m do
for j:= 1 to n do
if A[ i, j ] > a and A[ i, j ] < b then что те там надо