Pascal. Программа по обработке массивов данных. При запуске возникают ошибки.

[Student1]

Pascal. Программа по обработке массивов данных. При запуске возникают ошибки. Помогите исправить.

Код программы:

Program Lab4;
Uses crt;
Type
Mas=array [1..5,1..5] of integer;
Var
i,j,buf,k,NA,NB:integer;
A,B,C:Mas;
begin
clrscr;
k:=0;
for i:=1 to 5 do
for j:=1 to 5 do readln(A[i,j]); {Ввод массива A}
for i:=1 to 5 do
for j:=1 to 5 do B[i,j]:=i*cos(i+j); {Формирование массива B}
for i:=1 to 5 do
for j:=1 to 5 do if A[i,j]>2.5 then NA:=NA+1;
for i:=1 to 5 do
for j:=1 to 5 do if B[i,j]>2.5 then NB:=NB+1;
if NA>NB then
begin
for i:=1 to 5 do
for j:=1 to 5 do C[i,j]:=A[i,j];
for j:=1 to 5 do
begin
for i:=1 to 5 do
begin
buf:=C[i,j];
C[i,j]:=C[i+1,j];
C[i+1,j]:=buf;
i:=i+1;
end;
end
else begin
for i:=1 to 5 do
for j:=1 to 5 do C[i,j]:=B[i,j];
for j:=1 to 5 do
begin
for i:=1 to 5 do
begin
buf:=C[i,j];
C[i,j]:=C[i+1,j];
C[i+1,j]:=buf;
i:=i+1;
end;
end;
end;
end;
for i:=1 to 5 do
for j:=1 to 5 do writeln(B[i,j]); {Вывод B}
writeln(NA);
writeln(NB);
for i:=1 to 5 do
for j:=1 to 5 do writeln(C[i,j]); {Вывод C}
Readkey
end.

Ошибки:
Error: Incompatible types:got "Extended" expected "SmallInt" (14,32)
for j:=1 to 5 do B[i,j]:=i*cos(i+j); {Формирование массива B}

Error: Illegal assignment to for-loop variable "i" (30,24) 
i:=i+1;

Fatal: syntax error, ";" expected but "ELSE" found (33,17)
else begin

[Son Of Pain]

Какбе все логично компилятор говорит )
1) результат функции cos вещественный, а у тебя массив из переменных какого типа?
2) внутри for переменной-счетчику нельзя присваивать значение. Да и зачем, она же и так увеличится. просто удали эту строчку
3) пропущен один end в этом месте, их должно быть 3 (два для циклов и один для if)

p.s. и еще есть ошибки, которые обнаружатся в рантайме. в тех местах, где идет обращение к массивам по индексу [i+1] цикл должен быть до четырех, а не до пяти (иначе на пятой итерации он обратится к шестому элементу, и будет беда

[unbanned]

Program Lab4;
Uses crt;
Type
Mas=array [1..5,1..5] of real;
Var
i,j:integer;
buf,NA,NB:real;
A,B,C:Mas;
begin
clrscr;
for i:=1 to 5 do
for j:=1 to 5 do readln(A[i,j]); {Ввод массива A}
for i:=1 to 5 do
for j:=1 to 5 do B[i,j]:=i*cos(i+j); {Формирование массива B}
for i:=1 to 5 do
for j:=1 to 5 do if A[i,j]>2.5 then NA:=NA+1;
for i:=1 to 5 do
for j:=1 to 5 do if B[i,j]>2.5 then NB:=NB+1;
if NA>NB then
begin
for i:=1 to 5 do
for j:=1 to 5 do C[i,j]:=A[i,j];
for j:=1 to 5 do
begin
for i:=1 to 4 do
begin
buf:=C[i,j];
C[i,j]:=C[i+1,j];
C[i+1,j]:=buf;
end;
end;
end
else begin
for i:=1 to 5 do
for j:=1 to 5 do C[i,j]:=B[i,j];
for j:=1 to 5 do
begin
for i:=1 to 4 do
begin
buf:=C[i,j];
C[i,j]:=C[i+1,j];
C[i+1,j]:=buf;
end;
end;
end;
for i:=1 to 5 do
for j:=1 to 5 do writeln(B[i,j]); {Вывод B}
writeln(NA);
writeln(NB);
for i:=1 to 5 do
for j:=1 to 5 do writeln(C[i,j]); {Вывод C}
Readkey
end.

[Student1]

Спасибо!!!