program ;
var
a:array[n,n] of integer; я не понимаю как написать размер матрицы
m,k,n,i,j,m2,n2,S:integer;
begin
randomize;
write ('введите n= ');
read(n);
write ('введите m= ');
read(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(20)-10;
writeln('матрица а=');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln( );
end;
ну и как дальше делать