Matrix sum+(x;y)

program n1;
uses crt;
const m=30;n=20;
type
vector=array[1..m,1..n] of real;
var
a:vector;
sum:real;
x,y,i,kol,r,r1,j,r2:integer;
otv:char;

begin

textcolor(4);
textbackground(11);
clrscr;

while true do
begin


 //Ввод рамерности матрицы
 while true do
 begin

writeln('Ввевдите размерность матрицы по строчкам ');
readln(r1);
if((r1>0) and (r1<=m) )then break;
writeln('размерность вне диапазона');
end;

while true do
begin
writeln('введите размерность по столбцам ');
readln(r2);
if((r2>0) and (r2<=n)) then break;
end;

//Ввод отрезка
writeln('Введите координаты (x;y) = ');
readln(x,y);

//Ввод элементов матрицы
writeln('':15,'вывести элементы матрицы');
for i:=1 to r1 do
for j:=1 to r2 do
begin
write('a[',i,';',j,']=');
read(a[i,j]);
end;
writeln();

sum:=0;
//Вывод элементов матрицы на печать
writeln('исходная матрица ');
for i:=1 to r1 do
begin
for j:=1 to r2 do
write(a[i,j]:4);
writeln(' ');
end;

//Сумма чисел по строкам
writeln();
for i:=1 to r1 do
begin
for j:=1 to r2 do
if ((a[i,j] >x) and (a[i,j]< y)) then
sum:=sum+a[i,j];
writeln('Сумма =' ,sum);
sum:=0;
end;




//Диалог с пользователем
readln();
write('Продолжить работу?');
readln(otv);
if((otv='N') or (otv='Y')) then break
end;
writeln('программа сделана студентом 22П')
end.