Pascal abc Неверное выражение

Question

Procedure propusk(Stroka:String;M:Byte; Var n:Byte); 
begin 
N:=M; 
While(Stroka[N]=' ')and (N<length(stroka))>='0')and(С<='9'); !!!
End; 
Function Sintax(Stroka: String ): Boolean; 
Var i: byte; 
begin 
Sintax:=True; 
For i:=1 to length(stroka) do 
if Not((Stroka=' ') or Cifra (Stroka)or 
(stroka='+' or (stroka='-') or (stroka='*')or(stroka='=')) 
then Sintax:=False; 
End;

Анастасия Давыдова · Accepted Answer

N<length(stroka))>='0' and(С<='9') - это бред какой-то.. . число N меньше длинны строки и больше равно символу (строке? ) '0' и так далее. . Читайте книжку.