Дана матрица размера M × N и целые числа K1 и K2 (1 ≤ K1 < K2 ≤ M).
Поменять местами строки матрицы с номерами K1 и K2.

Решить в Pascal. Перед тем как выложить, проверить свое решение.

Можешь не документом скинуть?

 varb:array [1..100] of integer;   a:array [1..100,1..100] of integer;   i, j,n,m,k1,k2: integer; beginwriteln ('Введите Кол-во строк');readln (n);writeln ('Введите Кол-во столбцов');readln (m);writeln ('Введите к1');readln (k1);writeln ('Введите к2');readln (k2);for i :=1 to n do       for j :=1 to m do          readln ( a [ i , j ]);         writeln ('Исходный массив');         for i:=1 to n dobegin  for j:=1 to m do  write(a[i,j]:4);  writeln;end;writeln;     for j :=1 to m do       b[j]:=a[k1][j];         for j :=1 to m do begin        a[k1][j]:=a[k2][j];        a[k2][j]:=b[j];      end;      writeln ('Массив после операций');      for i:=1 to n dobegin  for j:=1 to m do  write(a[i,j]:4);  writeln;end;end.