Matrix sum/prj

program n1;
uses crt;
const m=30;n=20;
type
vector=array[1..m,1..n] of real;
var
a:vector;
sum,prj:real;
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('':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;
for j:=1 to r2 do
begin
prj:=1;
for i:=1 to r1 do
begin
sum:=sum+a[i,j];
prj:=prj*a[i,j];
end;
writeln('proizvedenie',j,'=',prj);
end;
writeln('sum','=',sum);

writeln('Исходная матрица');
writeln(i,'':10,j);


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