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

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.