pascal kerdes

[Sandor]

i kiindulási értéke? miért lenne 1 az értéke így?

Sándor
Fuzesi Arnold wrote:
> 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.
> 
> -----------------------------------------
>           elektro[-flame|-etc]
>