Двумерный массив. Удалить строку матрицы с номером К

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  i,j,m,n,k: integer;
begin
  write('Введите размеры массива m и n: ');
  readln(m,n);
  writeln('Исходный массив:');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  write('Введите числo от 1 до ',m,': ');
  readln(k);
  
  for i:=k to m-1 do
    for j:=1 to n do
      a[i,j]:=a[i+1,j];
  m:=m-1;
  
  writeln('Полученный массив:');
  for i:=1 to m do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  
  readln;
end.

Const N=3;M=3;
Var  A:array[1..n,1..m] of integer;
     i,j,k:integer;
Begin
    For i:=1 to n do 
     Begin
      For j:=1 to m do
       Begin
       A[i,j]:=Random(10);
       write(A[i,j]:3);
       End;
      writeln;
     End;
    Repeat 
    write('Введите k ');readln(k);
    Until (1<=k)and(k<=N);
    For j:=1 to n do
     A[k,j]:=0;
    Writeln('Полученная матрица');
    For i:=1 to n do 
     Begin
      For j:=1 to m do
       write(A[i,j]:3);
      writeln;
     End;
End.

uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of integer;
    n,m,k,i,j: byte;
begin
randomize;
repeat
write('Количество строк, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
writeln('Дана матрица');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:4);
        end;
    writeln;
    end;
repeat
write('Строка для удаления, k='); readln(k);
until k in [1..m];
n:=n-1;
for i:=k to n do
   for j:=1 to m do
       a[i,j]:=a[i+1,j];
writeln('Матрица после удаления строки');
for i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:4);
    writeln;
    end;
readln;
end.

Const N=3;M=3;
Var  A:array[1..n,1..m] of integer;
     i,j,k:integer;
Begin
    For i:=1 to n do 
     Begin
      For j:=1 to m do
       Begin
       A[i,j]:=Random(10);
       write(A[i,j]:3);
       End;
      writeln;
     End;
    Repeat 
    write('Введите k ');readln(k);
    Until (1<=k)and(k<=N);
    Writeln('Полученная матрица');
    For i:=1 to n do 
     Begin
      if k<>i then 
       Begin
        For j:=1 to m do
         write(A[i,j]:3);
        writeln;
       End;
     End;
End.