я сама вот пробовала решать и вот что у меня получилось:
program Lab8;
usese crt;
type matrix=array[1..10,1..10] of integer;
var a:matrix;
i,j,n,x,y:byte;
ch:char;
procedure vvod(var ma:matrix; n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n...