program delete;
const lmax=100;
var
Z:array[1..lmax,1..lmax] of integer;
P:array[1..lmax] of integer;
i,j,n,m,k,num,cur:integer;
nr,mr,kr:real;
flag:boolean;
begin
writeln('Лабораторная работа №2');
writeln('Задание №1');
repeat
   writeln('Введите размеры матрицы Z от 1 до ', lmax);
   readln(nr,mr);
until (nr=round(nr)) and (mr=round(mr)) and
      (nr<=lmax) and (mr<=lmax) and
      (nr>0) and (mr>0);
n:=round(nr);
m:=round(mr);
writeln('Введите элементы матрицы Z');
for i:=1 to n do
   for j:=1 to m do
      read(Z[i][j]);
writeln;
repeat
   writeln('Введите длину массива P от 1 до ', lmax);
   readln(kr);
until (kr=round(kr)) and (kr<=lmax) and (kr>0);
k:=round(kr);
writeln('Введите элементы массива P');
for i:=1 to k do
   read(P[i]);
writeln;
num:=0;
for j:=1 to m do
   begin
   cur:=1;
   flag:=false;
   while (cur<=n) and (not flag) do
      begin
      i:=1;
      while (i<=k) and (not flag) do
         begin
         if Z[cur][j]=P[i] then
            flag:=true;
         i:=i+1;
         end;
      cur:=cur+1;
      end;
   if flag then
      begin
      num:=num+1;
      for i:=1 to n do
         Z[i][num]:=Z[i][j];
      end;
   end;
if num=0 then
   writeln('Вся матрица была удалена')
else
   begin
   writeln('Полученная матрица');
   for i:=1 to n do
      begin
      for j:=1 to num do
         write(Z[i][j]:5);
      writeln;
      end;
   if num=m then
      writeln('Ни один столбец матрицы не был удален');
   end;
end.