p:= PChar(line); while p^ <> #0 do begin if p^ ... inc(p); end;
for i:= 1 to len do begin if line[i] ... end;