нужна ответы помагите

Const nmax=20;var a:array[1..nmax,1..nmax] of integer;    m,n,i,j,k,l,p:byte;begin
randomize;repeatwrite('Количество строк до ',nmax,' n=');readln(n);until n in [1..nmax];repeatwrite('Количество столбцов до ',nmax,' m=');readln(m);until m in [1..nmax];writeln('Исходная матрица:');for i:=1 to n do begin   for j:=1 to m do    begin     a[i,j]:=random(100);     write(a[i,j]:4);    end;   writeln; end;writeln;k:=0;{наличие нужного столбца}j:=1;while(j<=m) and(k=0) do{идем по столбцам} begin  p:=0;{наличие совпадений}  for i:=1 to n-1 do{идем вниз по столбцу}  for l:=i+1 to n do{смотрим впереди}  if a[i,j]=a[l,j] then p:=1;{если одинаковые, фиксируем}  if p=1 then k:=1{есть столбец}  else j:=j+1;{нет, смотрим следующий} end;if k=1 then write('Столбец с одинаковыми элементами есть')else write('Столбца с одинаковыми элементами нет');readlnend.

#inclued<bits/stdc++.h>

using namespace std;

int main()

{int d,m;

cin>>d>>m;

if (m==1)

{if (d>=20)

cout<<"vodoleey";

else cout<<"kozerog";}

if (m==2)

{if (d>=19)

cout<<"ribi";

else cout<<"vodoley";}

if (m==3)

{if (d>=21) cout<<"oven";

else cout<<"ribi";}

if (m==4)

{if (d>=20)

cout<<"telec";

else cout<<"oven";}

if (m==5)

{if (d>=21)

cout<<"blizneci";

else cout<<"telec";}

if (m==6)

{if (d>=22)

cout<<"rac";

else cout<<"blizneci";}

if (m==7)

{if (d>=23)

cout<<"lev";

else cout<<"rac";}

if (m==8)

{if (d>=23)

cout<<"deva";

else cout<<"lev";}

if (m==9)

{if (d>=23) cout<<"vesi";

else cout<<"deva";}

if (m==10)

{if (d>=23)

cout<<"scorpion";

else cout<<"vesi";}

if (m==11)

{if (d>=23)

cout<<"strelec";

else cout<<"scorpion";}

if (m==12)

{if(d>=22)

cout<<"kozerog";

else cout<<"strelec";}

return 0;

}