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

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.

for i := 1 to 5 do
begin
  fl := true;
  for j := 1 to 5 do
    if a[i, j] <> a[j, i] then
    begin
      fl := false;
      break;
    end;
  if fl then
    Write(i);
end;

    if S[i] := S[j] then
      k := S[i];

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.