Лабораторная работа по обработке двумерных массивов

type mtr=array[,]of integer;
     mas=array of integer;
procedure create(var a:mtr;var b:mas;var n:integer); 
var i,j:integer;
begin
write('Введите размер матрицы и массива n=');
readln(n);
setlength(a,n,n);
setlength(b,n);
for i:=0 to n-1 do
 begin
  b[i]:=10+random(50);
  for j:=0 to n-1 do
  a[i,j]:=-5+random(20);
 end;
end;
procedure print_mtr(a:mtr;n:integer;s:string);
var i,j:integer ;
begin
writeln(s);
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j]:4);
  writeln;
 end;
end; 
procedure print_mas(b:mas;n:integer);
var i:integer;
begin
writeln('Массив В');
for i:=0 to n-1 do
write(b[i]:4);
writeln;
end;
function two_otr(a:mtr;n,i:integer):boolean;
var j,k:integer;
begin
k:=0;
for j:=0 to n-1 do
if a[i,j]<0 then k:=k+1;
two_otr:=k>1;
end;
procedure stroki(var a:mtr;b:mas;n,k:integer);
var j:integer;
begin
for j:=0 to n-1 do
a[k,j]:=b[j];
end;
var a:mtr;  
    b:mas;
    n,i:integer;
begin
create(a,b,n);
print_mtr(a,n,'Исходная матрица');    
print_mas(b,n);
for i:=0 to n-1 do
if two_otr(a,n,i) then stroki(a,b,n,i);
print_mtr(a,n,'Замена строк')
end.