помогите с pascal! пожалуйста!!

{Задача: "Дана вещественная квадратная матрица.
Рассмотреть элементы, расположенные в строках, начинающихся с отрицательного элемента.
Найти сумму тех элементов, которые расположены на главной диагонали матрицы. "}

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

var a:array[1..50,1..50] of integer;
n,i,j:byte;
s:integer;
begin
write('Vvedite zna4enye razmera matricy - n=');
read(n);
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
read(a[i,j])
end;
{Если хочешь рандомно, то введи вместо этого предидущего блока a[i,j]:=random(201)-100; что бы были и отрицательные числа}
readln;
writeln;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln
end;
readln;
writeln;
for i:=1 to n do
if a[i,1]<0 then
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
readln;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i,i];
writeln('CyMMa Takix EJIEMEHTOB: S=',s);
readln;
end.

У тебя массив задан неверно!
a: array [1..n, 1..n] of real;
где 1, n - это номера строк (столбцов) двумерного массива.

Не совсем понял условие. Нужно найти сумму элементов, расположенных на главной диагонали, если строка, в которой находится элемент, начинается с отрицательного числа? Если я правильно понял, то вот программа: http://pastebin.com/1Bd6w1xe.

Назар Бойчук у вас ошибка var a:array[1..50,1..50] of integer;
числа вещественные а значит с плавающей точкой а значит не интежер а real; не и форматный вывод (a[]:0:2,' ');