Program lab1_2_SE;
uses crt;
  var
     A:array[1..10, 1..10] of integer;
     i, j: byte;
     strok, stolb :byte;
     str,stl:byte;

  begin
clrscr;
    repeat
write ('Введите число строк матрицы (до 10):');
readln (strok);
write ('Введите число столбцов матрицы (до 10):');
readln (stolb);
until (strok>0) and (strok<=10) and (stolb>0) and (stolb<=10);
clrscr;
for i:=1 to strok do
for j:=1 to stolb do
begin
write ('Введите элемент матрицы A[',i,',',j,'] ');
readln (A[i,j]);
end;
clrscr;
writeln;
writeln ('Исходная матрица');
writeln;
for i:=1 to strok do
begin
for j:=1 to stolb do
write (A[i,j]:5);
writeln;
end;
repeat
write ('Введите номер строки');
readln (str);
write ('Введите номер столбца');
readln (stl);
until (str>0) and (str<=strok) and (stl>0) and (stl<=stolb);
for i:=1 to strok do
begin
for j:=1 to stolb do

ВОТ ТУТ ДОЛЖНО БЫТЬ ТО (САМОЕ Главное)...  

end;
for i:=1 to strok do
begin
for j:=1 to stolb do
write(A[i,j]:8);
writeln;
end;
end.