[abcdef]

Доработал кода функций модуля CRT,
а вот адаптация pascal программ работы с файлами (только для чтения)

type
  text = record
    f : resource;
    eof : boolean;
  end;
var
  IOres : integer;

procedure assign(f : text;  name : string);
begin
  f.f:=openResource('/'+name);
  f.eof:=false;
end;

procedure reset(f : text);
begin
  if (resourceAvailable(f.f)) then IOres:=0
    else IOres:=1;
end;

procedure close(f : text);
begin
  closeResource(f.f);
end;

function IOresult : integer;
begin
  IOresult:=IOres;
  IOres:=0;
end;

function eof(r : text) : boolean;
begin
  eof:=r.eof;
end;

function system_read(f : text) : char;
var
  b : integer;
begin
  b:=readByte(f.f) and 255;
  if b=0 then f.eof:=true;
  system_read:=chr(b);
end;

{========}
var
  f : text;
  c : char;
begin
  assign(f,fname);
  reset(f);
  if IOresult=0 then
  begin
    while not eof(f) do
    begin
      c:=system_read(f);
      write(c);
      ...
    end;
    close(f);
  end;
end;