Ошибку не могу найти в программе

[Веселина]

не запускается почему-то....


uses Crt;
const pi=3.1415926535897932385;
var x,y,max,no,ko,h,buf:real;
i,j,nkp,ns,kp,ka,kb,ke:byte;
A:array[1..25]of integer;
B:array[1..25]of real;
E:array[1..25,1..25]of real;
begin
clrscr;
no:=-pi;
ko:=pi;
h:=pi/10;
x:=no;
writeln(' x y');
ka:=0;
max:=3*cos(5*no*2)+2*sin(no*5);

{Vivod resultata funkcii i zapolnenie massiva A}
while x<=ko do
begin
y:=3*cos(5*x*2)+2*sin(x*5);
if y>max then max:=y;
ka:=ka+1;
A[ka]:=round(y);
writeln(x:5:2,' ',y:5:2);
x:=x+h;
end;

{Vivod maximalnogo znachenia funkcii}
writeln('max=',max:5:2);
readln;
{Vivod massiva A}
writeln('Massiv A');
for i:=1 to ka do
write(A[i],' ');
writeln;
writeln (‘massiv A posle’);
for i:= to ka do
begin
if (a[i]=0 and (a[i] div 2=0) then a[i]:=1;
writeln (a[i], ‘ ‘);
end;
writeln;
{Zapolnenie i vivod massiva B}
kb:=0;
writeln('Massiv B');
for i:=1 to ka do
if A[i]<(max/2) then begin
kb:=kb+1;
B[kb]:=A[i];
write(B[kb]:5:2,' ');
end;
writeln;
for i:=1 to kb do
for j:=1 to kb do
begin
buf:=b[j];
b[j]:=b[i];
b[i]:=buf;
end;
end;
writeln (‘massiv B posle’);
for i:=1 to kb do
writeln (b[i]:5:2, ‘ ‘);
writeln;
readln;

if kb<ka then ke:=kb else ke:=ka;

writeln('Matrix E');
for i:=1 to ke do begin
for j:=1 to ke do begin
E[i][j]:=3*A[i]-2*B[j];
write(E[i][j]:6:1);end;
writeln;end;

ns:=1;kp:=ke;
for i:=1 to ke do begin
nkp:=0;
for j:=1 to ke do
if E[i][j]>0 then nkp:=nkp+1;
if nkp<kp then begin kp:=nkp;ns:=i;end;
end;
writeln('Stroka ',ns,' soderzhit minimalnoe kol-vo polozhotelnih elementov');

for i:=1 to ke do
E[ns][i]:=0;

writeln('Matrix E');
for i:=1 to ke do begin
for j:=1 to ke do
write(E[i][j]:6:1);
writeln;end;


readln;
end.

[Alex11223]

Ошибку-то какую и где пишет?
И используйте тег [CODE] (значок #) для сохранения форматирования\подсветки кода в сообщении.

[Веселина]

Type mismatch выдает.
В этой строчке

if (a[i]=0 and (a[i] div 2=0) then a[i]:=1;

перед then.

Я не поняла, как выделять.....

[Son Of Pain]

Закрывающая круглая скобка пропущена перед and.

[Веселина]

ААААА!! Точно!!!! Спасибо большое!!!!!!)))))))))))))))))

[Веселина]

можно еще вопрос.....
тут в конце 2 раза end надо??


kb:=0;
writeln('Massiv B');
for i:=1 to ka do
if A[i]<(max/2) then begin
kb:=kb+1;
B[kb]:=A[i];
write(B[kb]:5:2,' ');
end;
writeln;
for i:=1 to kb do
for j:=1 to kb do
begin
buf:=b[j];
b[j]:=b[i];
b[i]:=buf;
end;
end;

[Son Of Pain]

Это же легко. Просто считаешь бегины и энды. Их должно быть одинаковое количество )
Тут end лишний.

[Веселина]

Так и думала, что лишний)) Спасибо)