program PPC;
uses crt;
var
a: array[1..4,1..4] of integer;
p,s: byte;
n: byte;
m: byte;
i,j:byte;
x: byte;
begin
clrscr;
randomize;
repeat
writeln('vvedite kol-vo strok');
readln(n);
until (n>1) and (n<=4);
repeat
writeln('vvedite kol-vo stolbcov');
readln(m);
until (m>1) and (m<=4);
 for i:=1 to n do
 for j:=1 to m do
   a[i,j]:=random(50);
 write('isxodnaya matrix');
 writeln;
 for i:=1 to n do begin
 for j:=1 to m do
 write(a[i,j],' ':8);
 writeln;
                  end;
  writeln('vvedite p');
   readln(p);
  for i:=1 to n do
  for j:=1 to m do begin
   if a[i,j]=p then s:=i
                   end;
   x:=0;
  for i:=1 to n do
  for j:=1 to m do begin
  if a[i,j]=p then inc(x)
                   end;
  if x=0 then writeln('Net elemente=elementu, vvedennomu s klaviaturb)') else
  begin
  for i:=s to n do
  for j:=1 to m do
   a[i,j]:=a[i+1,j];
    for i:=1 to n-1 do begin
 for j:=1 to m do
 write(a[i,j],' ':8);
 writeln;
                     end;
 readkey;
 end;
end.