Одномерные массивы(Pascal)

[Дима82]

Элементы массива A(N) упорядочены: A(1)<A(2)<...<A(N). Определить номер К такой, чтобы для заданного числа Х выполнялось условие:
А(К)<X<A(K+1). Если нет такого номера напечатать "НЕТ".

Program Lab4;
Uses crt;
Const N=10;
Var A:array[1..N] of real;
    X,K:real;
    J,M:integer;
Begin
Clrscr;
Write('BBedute 4uclo elementov macciva <=10: ');
Readln(m);
For J:=1 to M do begin
Begin
Write('A[',J,']=');
Readln(A[J]);
End;
Write ('X=');
Readln(X);
End;
Begin
For J:=1 to M do
Begin
A(K)<X<A(K+1) //здесь должно быть, скорее всего другой код 
Write(K:4,'');
if ioresult<>0 then begin //здесь я хотел показать, что если нет такого номера, то выводит это...
write('Net nomera');
readln;
end;
end;
Readkey;
End.

Помогите подправить программу...

[Карась]

1. Нормальто отфарматируйте код. Разбейте на блоки и добавте комнтарии. Основные блоки отделяете пустой строкой.
2. Опишите что конкретно ненравится в работе написаной программы.

[ryton]

k:=-1;
for i:=1 to m do
if (x>a[i] and x<a[i+1]
then
k:=i;
if k=-1 then writeln('такого нет')
else writeln (k);

[Olympian]

#
# A(K)<X<A(K+1) //здесь должно быть, скорее всего другой код

Конечно - это запись того, что должно делаться
код примерно такой должен быть

if A(J) < X) and (X < A(J + 1) then
Write(K:4,'');

[Дима82]

Program Lab4;
Uses crt;
Const N=10;
Var A:array[1..N] of real;
    X,K:real;
    J,M:integer;
Begin
Clrscr;
Write('BBedute 4uclo elementov macciva <=10: ');
Readln(m);
For J:=1 to M do begin
Begin
Write('A[',J,']=');
Readln(A[J]);
End;
Write ('X=');
Readln(X);
End;
K:=-1;
For J:=1 to M do
If (X>A[J] and X<A[J+1] then //типы операндов не соответствуют оператору(попробовал менять не получается) 
K:=I;
If K=-1 then writeln('net nomera') else
Writeln(K:4,'');
Readln
End.

[ryton]

во первых скобки расставить в ифе
k:=-1;
for i:=1 to m do
if (x>a[i]) and (x<a[i+1])
then
k:=i;
if k=-1 then writeln('такого нет')
else writeln (k);

[Дима82]

Program Lab4;
Uses crt;
Const N=10;
Var A:array[1..N] of real;
    X:real;
    J,M,K:integer;
Begin
Clrscr;
Write('BBedute 4uclo elementov macciva <=10: ');
Readln(m);
Begin
For J:=1 to M do
Begin
Write('A[',J,']=');
Readln(A[J]);
End;
Write ('X=');
Readln(X);
End;
K:=-1;
For J:=1 to M do
If (X>A[K]) and (X<A[K+1]) then
K:=J;
If K=-1 then writeln('net nomera') else
Write('K=',K:4);
Readln
End.

Всё время выходит нет номера, хотя я всё правильно писал...

[ryton]

а ты пошагово выполни и посмотри,или К выводи постоянно.Должна работать вроде