Здравствуйте, sanekvseti!
Поправил Вашу программу. Компилировал в Паскаль АВС.

Приложение:
program lab5;
uses crt;
const max=7;
type
matr = array[1..max,1..max] of real;
vect = array[1..max*max] of real;
var
a, b: matr;
c, d: vect;
l, q: integer;
n,nl,k,kl:integer;
//добавим символьную переменную - имя матрицы
procedure vvod(var x: matr; p: integer;c:char);
var
i,j: integer;
begin
writeln('введите ',p*p,' элементов матрицы ',c);
for i:= 1 to p do
for j:= 1 to p do
read(x[i,j]);
end;
//тоже, имя вектора
procedure vyvod(var y: vect; p: integer;c:char);
var
i: integer;
begin
writeln('Вектор ',c);
for i:= 1 to p do
write(y[i]:6:2);
writeln;
end;
//добавим входные параметры, границы 2х интервалов для поиска,
//матрица входной параметр, но не выходной, она не меняется
procedure form(x: matr; p:integer;n,nl,k,kl:real;var y: vect; var m: integer);
var
i,j: integer;
begin
m:= 0;
for i:= 1 to p do
for j:= 1 to p do
if ((x[i,j]>n)and(x[i,j]<nl))or((x[i,j]>k)and(x[i,j]<kl)) then
begin
m:=m+1;
y[m] := x[i,j]
end;
end;

begin
clrscr;
vvod(a,7,'A');
repeat
writeln('введите первый интервал для поиска nl>n');
readln(n,nl);
until nl>n;
repeat
writeln('введите второй интервал для поиска kl>k');
readln(k,kl);
until kl>k;
form(a,7,n,nl,k,kl,c,l);
vyvod(c,l,'C');
vvod(b,5,'B');
repeat
writeln('введите первый интервал для поиска nl>n');
readln(n,nl);
until nl>n;
repeat
writeln('введите второй интервал для поиска kl>k');
readln(k,kl);
until kl>k;
form(b,5,n,nl,k,kl,d,q);
vyvod(d,q,'D');
end.