program ed;</br>
type tmyarray=array[1..5,1..5] of integer;</br>
procedure deletcolumn(var a:tmyarray;</br>
var n,m:integer;</br> t:integer);</br>
var i,j:integer;</br>
begin
for j:=1 to m-1 do
for i:=t to n do a[i,j]:=a[i,j+1];</br>
dec(m);</br>
end;</br>
var i,j,aa,n,m:integer;</br>
a:tmyarray;</br>
Begin
readln(n,m);</br>
randomize;</br>
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10);</br>
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:3);</br>
writeln;</br>
end;</br>
readln(aa);</br>
j:=1;</br>
while j<=m do
if a[1,j]>aa then deletcolumn(a,n,m,j)
else inc(j);</br>
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:3);</br>
writeln;</br>
end;</br>
readln;</br>
End.