МАССИВЫ!МАТРИЦА!, помогите исправить ошибку! Опции

[ЮльКа)]

Посмотрите пожалуйста программу, как исправить ошибку?

в конце строк стоит ;


Сообщение отредактировано: ЮльКа) - 17.12.2006 19:03

[Bokul]

как исправить ошибку?

Изменить тип переменной...
Хочешь больше, выкладывай полный исходник...

[ЮльКа)]

Изменить тип переменной...
Хочешь больше, выкладывай полный исходник...

ХОЧУ!!!БЛИН!вот теперь все заработало...но в итоге ничего что надо не считает(((

const
N=5;
m=N;
k=N;
var
A: array [1..m,1..k] of real;
S: array [1..k,1..k] of integer;
Z: array [1..m,1..m] of integer;
i,j,c,t: integer;
p,d:real;
begin
(*ўў®¤ ¤ ­­ле*)
A[i,j]:=0;
for i:=1 to m do
begin
writeln('ўўҐ¤ЁвҐ зЁб«® ¤«п бва®ЄЁ',i);
readln(A[i,j]);
for i:=1 to k do
begin
writeln('ўўҐ¤ЁвҐ зЁб«® ¤«п бв®«Ўж ',j);
A[i,j]:=(-1)*i*j;
readln(A[i,j]);
end;
end;
writeln;
d:=0;
for i:=1 to m do begin
d:=d+A[i,i];
writeln(' ',d);
end;
p:=0;
for i:=1 to m do begin
for j:=1 to k do
p:=p*A[i,j];
writeln(' ',p);
end;
(*б㬬  н«Ґ¬Ґ­в®ў бв®«Ўж®ў*)
t:=0;
for i:=1 to m do begin
t:=t+S[j,j];
writeln('б㬬  н«Ґ¬Ґ­в®ў Є ¦¤®Ј® бв®«Ўж ',t);
Z[i,i]:=0;
for i:=1 to m do begin
Z[i,i]:=t;
writeln ('Ї®«гзЁўи пбп ¬ ваЁж ');
end;
end;
(*®Ўа Ў®вЄ  ¬ ваЁжл*)
A[i,j]:=0;
for i:=1 to m do begin
for i:=1 to k do
if A[i,j]<0 then
begin
c:=0;
A[i,j]:=A[i,j]+1;
A[i,j]:=c;
end;
end;
A[i,j]:=0;
for i:=1 to m do begin
for i:=1 to k do
if A[i,j]>0 then
begin
c:=1;
A[i,j]:=c;
Writeln ('¬ ваЁж ');
end;
end;
end.

то что в скобках не по русски - неважно)