Свойства матрицы

uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of byte;
    n,i,j: byte;
    r,ir,s,an: boolean;
begin
write('Разерность матрицы, не более ',nmax,', n=');
readln(n);
writeln('Заполняем матрицу');                       //в циклах с параметром заполняем матрицк
for i:=1 to n do
    for j:=1 to n do
        begin
        write('a[',i,',',j,']=');
        readln(a[i,j]:2);
        end;
    writeln;
    end;
r:=true; ir:=true; s:=true; an:=true;              //изначально считаем, что все условия выполняются
writeln('Дана матрица');
for i:=1 to n do                                  //в циклах с параметром выводим матрицу на экран
    begin
    for j:=1 to n do
        write(a[i,j]:2);
    writeln;
    end;                                                //в циклах с парметром проверяем условия
for i:=1 to n do
    for j:=1 to n do
        begin
        if (i=j) then
           begin
           if (a[i,j]=1) and (r=true) then r:=true else r:=false;
           if (a[i,j]=0) and (ir=true) then ir:=true else ir:=false;
           end;
        if (a[i,j]=a[j,i]) and (s=true) then s:=true else
           begin
           s:=false;
           if an=true then an:=true else an:=false;
           end;
        writeln(an);
        end;
writeln ('Свойства матрицы');
if r then writeln ('рефлексивна');
if ir then writeln ('иррефлексивна');
if s then writeln ('симметрична');
if an then writeln ('антирефлексивна');
end.

uses crt;
const n=5;
var a: array [1..n,1..n] of byte;
    i,j,x,y: byte;
    r,ir,s,an: boolean;
    f: text;
begin
assign(f,'C:\in.txt');
reset(f);
writeln('Заполняем матрицу');                       //в циклах с параметром заполняем матрицк
for i:=1 to n do
    for j:=1 to n do
        a[i,j]:=0;
while not (eof(f)) do
      begin
      read(f,x);
      readln(f,y);
      a[x,y]:=1;
      end;
r:=true; ir:=true; s:=true; an:=true;              //изначально считаем, что все условия выполняются
writeln('Дана матрица');
for i:=1 to n do                                  //в циклах с параметром выводим матрицу на экран
    begin
    for j:=1 to n do
        write(a[i,j]:2);
    writeln;
    end;                                                //в циклах с парметром проверяем условия
for i:=1 to n do
    for j:=1 to n do
        begin
        if (i=j) then
           begin
           if (a[i,j]=1) and (r=true) then r:=true else r:=false;
           if (a[i,j]=0) and (ir=true) then ir:=true else ir:=false;
           end;
        if (a[i,j]=a[j,i]) and (s=true) then s:=true else
           begin
           s:=false;
           if an=true then an:=true else an:=false;
           end;
        end;
writeln ('Свойства матрицы');
if r then writeln ('рефлексивна');
if ir then writeln ('иррефлексивна');
if s then writeln ('симметрична');
if an then writeln ('антирефлексивна');
close(f);
end.

uses crt;
const n=5;
var a: array [1..n,1..n] of byte;
    i,j,x,y,k,kk: byte;
    r,ir,s,an: boolean;
    f: text;
begin
assign(f,'C:\in.txt');
reset(f);
writeln('Заполняем матрицу');                       //в циклах с параметром заполняем матрицк
for i:=1 to n do
    for j:=1 to n do
        a[i,j]:=0;
while not (eof(f)) do
      begin
      read(f,x);
      readln(f,y);
      a[x,y]:=1;
      end;
r:=true; ir:=true; s:=true; an:=true;              //изначально считаем, что все условия выполняются
writeln('Дана матрица');
for i:=1 to n do                                  //в циклах с параметром выводим матрицу на экран
    begin
    for j:=1 to n do
        write(a[i,j]:2);
    writeln;
    end;                                                //в циклах с парметром проверяем условия
for i:=1 to n do
    begin
    k:=0;
    for j:=1 to n do
        begin
        if (i=j) then
           begin
           if (a[i,j]=1) and (r=true) then r:=true else r:=false;
           if (a[i,j]=0) and (ir=true) then ir:=true else ir:=false;
           end;
        if (a[i,j]=a[j,i]) and (s=true) then s:=true else s:=false;
        if (a[i,j]<>a[j,i]) and (an=true) then an:=true else an:=false;
        if (i<>j) and (a[i,j]=0) then inc(k);
        end;
    if k=4 then inc(kk);
    end;
if kk>0 then
   begin
   kk:=0;
   for j:=1 to n do
       begin
       k:=0;
       for i:=1 to n do
           if (i<>j) and (a[i,j]=0) then inc(k);
       if k=4 then inc(kk);
       end;
   end;
writeln ('Свойства матрицы');
if r then writeln ('рефлексивна');
if ir then writeln ('иррефлексивна');
if s then writeln ('симметрична');
if an then writeln ('антирефлексивна');
if kk>0 then writeln ('обладает свойством связности');
close(f);
end.

for i:=1 to n do                         //в цикле с параметром перебираем строки
    begin
    k:=0;                               //для каждой строки изначально считаю количество 0 равным 0 (вдруг их там вообще нет...)
    for j:=1 to n do                    //в цикле для элементов строки
        if (i<>j) and (a[i,j]=0) then inc(k); //исключая элемент на главной диагонали, проверяю условие что элемент равен 0 и увеличиваю K если это так
        end;
    if k=4 then inc(kk);              //если количество нулевых элементов равно размеру матрицы минус 1 (так как диагональ не учитывается), то увеличиваю счетчик строк, которые заполнены 0ми (здесь можно было бы остановится, так как условие наполовину проверено)
    end;
if kk>0 then                        //итак, если удалось найти хотя бы одну строку с нолями
   begin                            //тогда начинаю ситать столбцы
   kk:=0;                           //изначально считаю, что столбцов с нолями нет
   for j:=1 to n do                 //перебираю все столбцы
       begin
       k:=0;                        //изначально для каждого столбца считаю, что в нем нет нулевых элементов
       for i:=1 to n do                //в цикле с параметром перебраю элементы столбца
           if (i<>j) and (a[i,j]=0) then inc(k);     //если равны 0, увеличиваю счетчик
       if k=4 then inc(kk);             //если все элементы кроме главной диагонали нулевые, увеличививаю счетчик столбцов
       end;
   end;
if kk>0 then writeln ('обладает свойством связности'); //если есть хоть один столбец, значит и строка есть, значит, связность выполняется