Дан двумерный массив. Удалить из него k-ю строку. Ошибка

type massiv=array [,]of integer;
   var a:massiv;
     n,m:integer;
  k, i, j : integer;
  begin
  Randomize;
 writeln ('vvedite n,m');
 readln(n,m);
 begin
  for i := 1 to m do
    for j := 1 to n do
  //    a[i, j] := Random(100) - Random(50);
  writeln('k = ');
  readln(k);
  writeLn('До удаления строки');
  for i := 1 to m do
  begin
    for j:= 1 to n do
      // writeln(a[i, j]:4,' ');
    writeln;
  end;
  {удаляем строку}
  for i := k to m-1 do
    for j := 1 to n do
 
      a[i, j] := a[i+1, j];
  {уменьшаем кол-во строк}
  dec(m);
  {печатаем массив}
  writeln('После удаления строки');
  for i := 1 to m do
  begin
    for j := 1 to n do
       write(a[i, j]:4,' ');
    writeln;
  end;
  readln;
end;
end.

type massiv=array [,]of integer;
var a:massiv;
    n,m,k, i, j : integer;
begin
writeln ('vvedite n,m');
read(n,m);
setlength(a,m,n);
for i := 0 to m-1 do
for j := 0 to n-1 do
 begin
  write('a[',i,',',j,']=');
  read(a[i,j]);
 end; 
writeLn('До удаления строки');
for i := 0 to m-1 do
 begin
  for j:= 0 to n-1 do
  write(a[i, j]:4,' ');
  writeln;
 end;
write('Введите номер строки для удаления от 1 до ',m,' k=');
read(k);
{удаляем строку}
if k=m then dec(m)
else
 begin
  for i := k-1 to m-2 do
  for j := 0 to n-1 do
  a[i, j] := a[i+1,j];
  {уменьшаем кол-во строк}
  dec(m);
 end; 
{печатаем массив}
writeln('После удаления строки');
for i := 0 to m-1 do
 begin
  for j := 0 to n-1 do
  write(a[i, j]:4,' ');
  writeln;
 end;
end.