Дано число k и матрица размера 4 x 10. Удалить строку матрицы с номером k — Pascal(Паскаль)

uses crt;
const n=4; m=10;
var
a: array [1..n,1..m] of integer;
k,i,l,j: integer;
begin
clrscr;
write ('vvedite k: '); readln (k);
for i:=1 to N do
for j:=1 to M do
a[i,j]:=random(50);
for i:=1 to N do
begin
for j:=1 to M do
write (a[i,j]:5);
writeln;end;
for i:=1 to N do
for j:=1 to M do
if a[i,j]=k then l:=i;
writeln;
for i:=1 to l-1 do
begin
for j:=1 to M do
write (a[i,j]:5);
writeln;end;
for i:=l+1 to N do
begin
for j:=1 to M do
write (a[i,j]:5);
writeln;end;end.