pascal kerdes

[Pipi]

Fuzesi Arnold írta:
> ezt vki ki tudna javítani nekem működőre?
> basszus elfelejtettem pascalul :(
> 
> amit szeretnek:
> ami bejön karakter azt kiirom
> csak amikor hexa 0x4F jön, akkor egy soremelest beszurok a 0x4F utan
> 
> 10000 kösz!
> 
> var i: longint;
> var b: char;
> begin
>   writeln('start');
> 
>     while i=1 do
>       b:=ComReadChr();
>       if (b=(0x4f)) then writeln('soremeles');
>      else wite(b);
>   end;
> end.
> 
csak palánkon kívülről ugatok:
az i hol lesz 1 a progiban? nincs értékadás
ha az else után van a write(b) akkor ugye vagy a 4f-et vagy a soremelést fogja kipöfögni,
ha mindkettő kell akkor írd át az if elé, vagy ne az else ágba, hanem utána

a szintax hibát meg majd kidobja a fordító :)

-- 
Pipi
http://www.puzsar.hu