посмотрите пожалуйста программу..почему она не работает?

[Darya]

скажите пожалуйста, почему она не работает??? ничего не понимаю..(((

program DA10;
var a:array[1..3,1..3] of integer;
i,j:integer;
procedure sum;
var s:integer; t:text;
begin {proc}
for i:=1 to 3 do
begin
assign(t,'.txt');
rewrite(t);
b:=false;
for j:=1 to 3 do if a[i,j]<0 then b:=true;
write(t,'stroka ',i); s:=0;
if b then begin
for j:=1 to 3 do s:=s+a[i,j];
writeln(t,' ',s);
end;
else writeln(t,'net otricatelnyh elementov')
end;
close(t)
end; {proc}

begin {program}
writeln ('vvedite massiv');
for i:=1 to 3 do readln(a[i,j]);
sum;
readln;
end. {program}

[5naip]

begin {program}
writeln ('vvedite massiv');
for i:=1 to 3 do
 for j:=1 to 3 do
   readln(a[i,j]);
sum;
readln;
end. {program}

в паскале не проверял. Нет его щас.

[Stilet]

assign(t,'.txt');

Имя файла дай нормальное
И с чего ты взяла что она не работает? В чем это проявляется?

[Олвин]

У вас стоит точка с запятой перед else в процедуре.

[Darya]

подчеркивает вот эту строчку b:=false;
и выдает ошибку unknown identifier.

[Neeter]

А вы ее добавьте в переменные то:

var 
 s:integer; 
 t:text;
 b: boolean;

[Stilet]

Ну значит допиши:

var a:array[1..3,1..3] of integer;
i,j:integer; b:BOOLEAN;

[Neeter]

Эта переменная используется в процедуре sum, так что разумнее будет ее добавить в переменные этой процедуры. Вверху написал уже

[Darya]

в итоге подчеркивает вот эту
begin {program}
writeln ('vvedite massiv');
for i:=1 to 3 do
for j:=1 to 3 do
----> readln(a[i,j]);
sum;
readln;
end. {program}
и Invalid numeric format.

[Stilet]

Neeter

Не буду спорить но в целом в задаче это значение не имеет.

в итоге подчеркивает вот эту

Не должно. Видать ты не числа вводишь а какую нить строку тпа "привет"