удаление сроки из матрицы с заданным номером К

[radikal]

задана матрица А размером 4 на 5. ТРебуется удалить строку с заданным номером К. Все первоначальные элементы массива вводятся с клавиатуры. Заранее спасибо!

[alex_fcsm]

uses crt;
const m=4;
      n=5;
      
var i,j,k:integer;
    a:array[1..m,1..n] of integer;
    
begin
for i:=1 to m do
 for j:=1 to n do
  read(a[i,j]);
repeat
writeln('Input number');
readln(k);
until k<=m;
clrscr;
for i:=1 to m do
 begin
  for j:=1 to n do
   write(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];
  writeln('=============================');
for i:=1 to m-1 do
 begin
  for j:=1 to n do
   write(a[i,j]:4);
   writeln;
 end;

[capta1n]

Мой вариант (даже с символами, чтобы поинтереснее xD):

program masss;
const
 m = 4;
 n = 5;
type
 DataItem = array [1..m,1..n] of ^char;
var
 A : DataItem;
 i,j : byte;
 k : byte;
 c : char;
begin

  randomize;
  writeln ('Input char: ');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      c:=chr(ord('A')+random(20));
      new (A[i,j]);
      A[i,j]^:=c;
      write(c,'|')
    end;
    writeln
  end;


  writeln ('Input k: ');
  readln (k);

  if k<=m then
  begin
    if k<m then
    begin
      for i:=k to m-1 do
       for j:=1 to n do A[i,j]^:=A[i+1,j]^
    end
    else for j:=1 to n do dispose (A[m,j]);

    for i:=1 to m-1 do
    begin
      for j:=1 to n do write (A[i,j]^,'|');
      writeln
    end
  end
  else writeln ('''k'' is much more ''m''!');

  readln;

end.

[radikal]

большое спасибо!!!!

[capta1n]

а отзыв?