Удаление строк и столбцов в матрице

const 
  N = 6; //строки
  S = 6; //столбцы
 type Matrix = array [1..N,1..S] of integer;
 var a: Matrix;
 k,x,z:integer;
 
procedure FillMatrixByRandom; // Заполнение случайными
begin
  for var i:=1 to N do 
  for var j:=1 to S do 
    a[i,j] := Random(10);
end;
 
procedure PrintMatrix(var strok,stolb:integer); // Вывод матрицы
begin
  for var i:=1 to strok do 
  begin
    for var j:=1 to stolb do 
      write(a[i,j]:4);
    writeln;  
  end;
end;
 
procedure DeleteStr(var str:integer); // Удаление строки
 var i,j:integer;
begin
 if str<>x then
 begin
  for  j:=1 to z do
  begin
    for i:=k to x-1 do
      a[i,j]:=a[i+1,j];
  end; dec(x); end else
  dec(x);
 PrintMatrix(x,z);
end;
 
procedure DeleteStolb(var stb:integer); // Удаление столбца
 var i,j:integer;
begin
 if stb<>z then
 begin
  for  i:=1 to x do
  begin
    for j:=k to z-1 do
      a[i,j]:=a[i,j+1];
  end; dec(z); end else
  dec(z);
 PrintMatrix(x,z);
end;
 
begin          // Основная программа
  FillMatrixByRandom;
  x:=N; z:=S;
  PrintMatrix(x,z);
 while true do
   begin
  writeln(' 1 - Удалить строку');
  writeln(' 2 - Удалить столбец');
var ans := ReadLnString('Ваш выбор:').Trim;
      if ans.Length > 0 then
        case ans[1] of
'1':begin
     write('Номер строки: ');
     readln(k);
     DeleteStr(k);
     end;     
'2':begin
     write('Номер столбца: ');
     readln(k);
     DeleteStolb(k);
     end;
  end;
 end;
end.