hile true do F : Strscan(F if F= nil then IParserError (ieBadRemark, P Fpc Program ifF[1]=') inc(F)i break end: inc(F) end if STyle psPascal then begin f(P[1] )')then IParserError(ieBadRemar k, P Epc Prog end else if EStyle =psCpp then if (P[l] /1) then IParserError(ieBadRemark p if (EStyle in [psPascal, psCpp]) and (P[1]='/')then eg F Str Scan(P 1,#13) if f= nil then F StrEnd(P 1)i else if (EStyle ps Cpp) and (P[l] ='*')then begin while true do beg StrScan(F,i*') if F= nil then IParserError (ieBadRemark, P -Epc Progr am) if F[l1 inc(F) inc(F)while true do begin F := StrScan(F, '*'); if F = nil then IParserError(ieBadRemark, P - FpcProgram); if F[1] = ')' then begin inc(F); break; end; inc(F); end; P := F + 1; end; '*': if FStyle = psPascal then begin if (P[1] = ')') then IParserError(ieBadRemark, P - FpcProgram) end else if FStyle = psCpp then if (P[1] = '/') then IParserError(ieBadRemark, P - FpcProgram); '/': if (FStyle in [psPascal, psCpp]) and (P[1] = '/') then begin F := StrScan(P + 1, #13); if F = nil then F := StrEnd(P + 1); P := F; end else if (FStyle = psCpp) and (P[1] = '*') then begin F := P + 2; while true do begin F := StrScan(F, '*'); if F = nil then IParserError(ieBadRemark, P - FpcProgram); if F[1] = '/' then begin inc(F); break; end; inc(F); end; P := F + 1;