Удалить строку с номером k.

{Для того, чтобы удалить строку с номером к, необходимо: - Сдвинуть все строки, начиная с данной, на одну вверх. - Последнюю строку "обнулить", то есть всем элементам последней строки присвоить нулевое значение. Будем выводить на экран сначала все строки, а второй раз, после удаления, на одну меньше.}

program prim3;
  uses crt;
  type mas=array[1..100,1.. 100] of integer;
  var a:mas;
      i,j,k,n:integer;
begin
  clrscr;
  randomize;
  write('n=');readln(n);
{Создаем и распечатываем двумерный массив.}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(45)-22;
          write(a[i,j]:4);
        end;
      writeln;
    end;
{Вводим номер удаляемой строки.}
  write('k=');readln(k);
{Сдвигаем строки на одну вверх, начиная с данной.}
  for i: =K to n-1 do
  for j:=1 to n do a[i,j]:=a[i+1,j];
{Обнуляем последнюю строку.}
  for j:=1 to n do a[n,j]:=0;
{Печатаем новый массив, в котором на одну строку меньше.}
  for i:=1 to n-1 do
    begin
      for j:=1 to n do
        begin
          write(a[i,j]:4);
        end;
      writeln;
    end;
  readln;
end.