Поменять местами значения К-ого и Р-ого столбцов матрицы В, размерностью MхM, заполненную случайным образом (программа Паскаль)

USES Crt;
 LABEL   M1;
 CONST   M=8;
 VAR
   A:ARRAY[0..M,0..M] OF INTEGER;
   I,J,K,P:BYTE;   PP:INTEGER;
 BEGIN
   ClrScr;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной      матрицы }
   WriteLn(' Значения двумерного массива');
   FOR I:=1 TO M DO Begin
     FOR J:=1 TO M DO Begin
       A[I,J]:=Random(23);   Write(A[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   WriteLn(' Введите номера столбцов, которые необходимо поменять');
   WriteLn(' Их значения не должны превышать ',M);
   M1:ReadLn(K,P);
   IF (K>M) OR (P>M) THEN GOTO M1;
   { Перестановка значений введенных столбцов }
   FOR I:=1 TO M DO Begin
     PP:=A[I,K];     A[I,K]:=A[I,P];     A[I,P]:=PP;
   End;
   WriteLn(' Измененный двумерный массив');
   FOR I:=1 TO M DO Begin
     FOR J:=1 TO M DO Begin
       Write(A[I,J]:3);
     End;   WriteLn;
   End;
 END.

13: 3=4(с остатком ) ответ: 4.5

Ответ,пять килограмм