Дан двумерный массив вывести на экран "да" если первый и последний столбец совпадают если не совпадают то вывести на экран "нет" решить в pascal

Const  n=3; var  ma:array[1..n,1..n] of integer;  i,j,p:integer; begin;  p:=0;  randomize;  writeln('Matrix:');   for i:=1 to n do    begin;     writeln;      for j:=1 to n do       begin;        ma[i,j]:=random(2);        write(ma[i,j]:4);       end;     end;    writeln;   for i:=1 to n do    if ma[i,1]<>ma[i,n] then p:=1;   if p=0 then write('Да') else write('Нет');  end.