Задачка в delphi, вылазят ошибки...

[Absent]

Если целочисленная квадратная матрица симетрична относительно главной диагонали, обнулить все
элементы, лежащие выше главной диагонали, и определить сумму элементов лежащих ниже главной
диагонали.

Вроде бы все правильно, но работать не хочет ошибки вылазят. Помогите пожалуйста очень нужно =) Все в delphi

program zadacha;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Type matr=array[1..100,1..100] of real;
Var k,i,j,n:integer;
sum:real;
A : matr;
Procedure BBOD_A(VAR A:matr);
Var
i,j:integer;
 begin
 write('n=');
 readln(n);
 for i:=1 to n do
 for j:=1 to n do
   begin
   write('A[',i,j,']=');
   readln(A[i,j]);
   end;
 end;
Procedure D(Var k: integer);
Var i,j :integer;
 begin
 for i:=1 to n do
 for j:=1 to n do
   begin
   if A[i,j]=A[j,i] then k:=k+1;
   end;
 end;
Procedure CYMMA(Var sum :real) ;
var
i,j,m:integer;
 begin
 for i:=1 to n do
 for j:=1 to n do
   begin
   if i=j then
   for m:=1 to (i-1) do
   sum:=sum+A[i,m];
   end;
 end;
Procedure G(Var A:matr);
var
i,j,m:integer;
 begin
 for i:=1 to n do
 for j:=1 to n do
   begin
   if i=j then
   for m:=(i+1) to n do
   A[i,m]:=0;
   end;
 end;

BEGIN
sum:=0;
k:=0;
BBOD_A(A);
D(k);
if k><(sqr(n)) then write ('matrica ne simetrichna')
else
G(A);
CYMMA(sum);
for i:=1 to n do
for j:=1 to n do
 begin
 writeln('A[',i,j,']=',A[i,j]);
 end;
 readln;
END.

[Карась]

А компилятор вам неподсказал, что за ошибки?

if k >< (sqr(n)) then write ('matrica ne simetrichna')

Правильно писать так: if k <> (sqr(n)).....

[puporev]

Кроме того, что подметил Карась, у тебя нет вывода суммы, и еще принято выводить на экран исходную матрицу и обработанную все же в виде таблицы. Еще внимательно посмотри расстановку запятых и апострофов, где вводишь числа, должно бвть не a[11], а a[1,1]. Короче посмотри переделанный код.

program zadacha;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Type matr=array[1..100,1..100] of integer;
Var k,i,j,n:integer;
sum:integer;
A : matr;
Procedure BBOD_A(VAR A:matr);
Var
i,j:integer;
 begin
 write('n=');
 readln(n);
 for i:=1 to n do
 for j:=1 to n do
   begin
   write('A[',i,',',j,']=');
   readln(A[i,j]);
   end;
writeln('Ishodnaia matrica:');
 for i:=1 to n do
   begin
     for j:=1 to n do
       begin
         write(A[i,j]:3);
       end;
     writeln;
   end;
 end;
Procedure D(Var k: integer);
Var i,j :integer;   
 begin
 for i:=1 to n do
 for j:=1 to n do
   begin  
   if A[i,j]=A[j,i] then k:=k+1;
   end;   
 end;
Procedure CYMMA(Var sum :integer) ;
var
i,j,m:integer;   
 begin
 for i:=1 to n do  
 for j:=1 to n do
   begin
   if i=j then
   for m:=1 to (i-1) do  
   sum:=sum+A[i,m];
   end;   
 end;
Procedure G(Var A:matr);
var
i,j,m:integer;   
 begin
 for i:=1 to n do  
 for j:=1 to n do
   begin
   if i=j then
   for m:=(i+1) to n do  
   A[i,m]:=0;
   end;   
 end;

BEGIN
sum:=0;   
k:=0;
BBOD_A(A);   
D(k);
if k<>(sqr(n)) then write ('matrica ne simetrichna')
else
G(A);   
CYMMA(sum);
writeln('Obrabotannaia matrica:');
for i:=1 to n do
   begin
     for j:=1 to n do
       begin
        write(A[i,j]:3);
       end;
     writeln;
   end;
writeln('Summa=',sum);
 readln;   
END.

[Absent]

Всем спасибо очень помогли.