Erro no free pascal

[dicas3d]

Olá gostava que me corrigissem um código que tenho com erro.

É o seguinte código:

program DataFiles;

var
   f: file of Byte;
   b: Byte;
   texto : string;

begin
   Assign(f,'MyFile.txt');
   Reset(f);
   while FilePos(f) <> FileSize(f) do
      begin
      readln(texto);
      b := Ord(texto);
         Read(f,;
         Writeln(;
      end;
   Close(f);
end.

Obrigado a que me encontrar o motivo de ele aceitar a varivel convertida.