pascal kerdes

[Fuzesi Arnold]

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.