Переставить местами заданные строки матрицы. Составить программу обработки матрицы, в программе предусмотреть ввод производного числа строк и столбцов матрицы (не более 4×4), ввод элементов матрицы, ее конкретный вывод, обработку и вывод результатов — Pascal(Паскаль)

var
a:array[1..100,1..100] of integer;
x,str1,str2,i,j,strok,stolbcov:integer;
begin
readln(strok);
readln(stolbcov);
for i:= 1 to strok do
 for j:=1 to stolbcov do
  readln(a[i,j]);
readln(str1);
readln(str2);
for j:=1 to stolbcov do begin
  x:=a[str1,j];
  a[str1,j]:=a[str2,j];
  a[str2,j]:=x;
end;
for i:= 1 to strok do
 for j:=1 to stolbcov do
writeln(a[i,j]);
end.