Матирцы (элементарное) - Pascal

Формулировка задачи:

Задание

Для заданной матрицы размером 5x5 найти такие k, что k-я строка матрицы совпадает с k-м столбцом

мне нужно сделать так? если так, то в одном месте она гворит, что должна стоять "

;

VAR
  S: array [1..5, 1..5] of integer;
  i, j, k: integer;
  
BEGIN
 
  writeln('Матрица S:');
    randomize;
    for i:= 1 to 5 do begin
      for j:= 1 to 5 do begin
      S[i,j]:= random(20)-10;
    write(S[i, j]:4, ' ');
    end;
  
  for i:=1 to 5 do begin
    if i := j then
      k := i;
      writeln(k);
    end;
END.

Решение задачи: «Матирцы (элементарное)»

Листинг программы

uses crt;
const n=5;
var b:array[1..n,1..n] of integer;
    i,j,k,p,s:byte;
begin
clrscr;
writeln('Введите ',n*n,' элементов матрицы:');
for i:=1 to n do
for j:=1 to n do
readln(b[i,j]);
clrscr;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:4);
  writeln;
 end;
writeln;
writeln('Номера совпадающих строк и столбцов:');
p:=0;
for k:=1 to n do
 begin
  s:=0;
  for j:=1 to n do
  if b[k,j]=b[j,k] then s:=s+1;
  if s=n then
   begin
    p:=1;
    writeln('номер ',k);
   end;
 end;
if p=0 then write('Совпадающих строк и столбцов нет!');
readln
end.

Объяснение кода листинга программы

Объявлены переменные: n (константа), b (массив), i, j, k, p, s (переменные типа byte).
Ввод элементов матрицы с помощью цикла for и функции readln().
Вывод матрицы на экран с помощью цикла for и функции write().
Вывод номеров совпадающих строк и столбцов с помощью цикла for и условного оператора if.
Проверка наличия совпадающих строк и столбцов с помощью переменной p.
Вывод сообщения о наличии или отсутствии совпадающих строк и столбцов.
Завершение работы программы с помощью функции readln().