Дан двумерный массив вывести на экран "да" если 1-ый и заключительный

program zz1;
var i, j, x, k: integer;  // задаем переменные целого типа
m: array[1..10,1..10] of integer;
begin
for i:=1 to 10 do begin
for j:=1 to 10 do begin
m[i, j]:=random(10); // заполнение массива случайными числами и вывод на экран
write(m[i, j]:3);
end;
writeln;
end;
for i:=1 to 10 do
if m[i,1]=m[i,10] then k:=k + 1; // проверка совпадения столбцов, если количество совпадений будет одинаково количеству элементов в столбце, то столбцы на сто процентов совпадают
if k=10 then write( да ) else write( нет ); // вывод ответа
end.