Перевести код с Pascal на C++ Builder 6 - архивация картинки алгоритмом сжатия RLE

Program TI_laba1;
uses crt;
 
VAR File_In,File_Out:file of byte;
 
{========================================================================}
function Action:string;{Выбираем, что делать с файлом(сжать или восстановить)}
 
VAR c:char;
 
  BEGIN
    repeat
      clrscr;
      writeln('                     Выберите действие (*нажмите 1 или 2):');
      writeln;
      writeln('                              1 -Сжать файл');
      writeln('                              2 - Восстановить файл');
      writeln('                              3 - Выход');
      readln(c);
      case c of
        '1' : Action:='Compress';
        '2' : Action:='DeCompress';
        '3' : halt(0);
      end;
    until (c='1') or (c='2');
   clrscr;
  END;
 
{=======================================================================}
procedure Compress(f1,f2:string);     {Процедура сжатия файла}
 
VAR  count, b, value : byte;
 
BEGIN
 Assign(File_in,f1);   {Связываем физическое имя файла с логическим}
  reset(File_in);
 Assign(File_out,f2);
  rewrite(File_out);
 read(File_in,value);  {считываем из файла первый байт}
 count:=1;  {обнуляем кол-во повторений данного байта}
 while not eof(File_in) do   {пока не конец файла}
   begin
      read(File_in,b);  {считываем из файла след. байт}
     if (value<>b)or(count>=63)then   {если пред.<>след. и повторов >=63}
       begin
        if (count=1)and(value<192) then {если кол-во повторов=1 и значение<192}
         write(File_out,value) {просто записываем значение}
          else begin
            count:=count+192;  {добавляем кол-во повторений к счётчику}
            write(File_out, count, value); {записываем в сжатый файл счетчик, а потом значение}
            count:=1; {обнуляем счетчик}
          end;
        value:=b;  {смотрим след. байт}
       end else inc(count);  {считаем повторения}
   end;
 count:=count+192;   {добавляем колич. повторений с счетчику}
 write(File_out, count, value);  {записываем в сжатый файл счетчик, а потом значение}
 write(File_out, b);   {записываем в сжатый файл последнее значение}
 close(File_in);       {закрываем}
 close(File_out);      {файлы}
END;
{=======================================================================}
Procedure DeCompress(f1,f2:string);   {Процедура восстановления файла}
 
VAR b,count,i:byte;
 
BEGIN
 Assign(File_out,f2);
  rewrite(File_out);
 Assign(File_in,f1);
  reset(File_in);
 count:=0;   {обнуляем счетчик}
 while not eof(File_in) do
   begin
    read(File_in,b); {*начинаем чтение}
     if b>192 then {если значение 192, то счетчик}
      begin
       count:=b-192; {считаем кол-во повторений}
       read(File_in,b);    {считываем след. байт}
       for i:=1 to count do write(File_out,b); {записываем его столько сколько нужно}
      end else write(File_out,b);    {просто записываем}
   end;
 close(File_out);     {закрываем}
 close(File_in);      {файлы}
END;
 
{======================================================================}
Procedure Result_1;   {вывод результата сжатия}
var size:string;
 
BEGIN
  reset(File_in);
  reset(File_out);
 
  textcolor(10);
  str(FileSize(File_in),size);
  GoToXY(26,9);
  writeln(Размер исходного файла = ',size);
 
  str(FileSize(File_out),size);
  GoToXY(26,10);
  writeln(Размер сжатого файла = ',size);
 
  textcolor(14);
  str(FileSize(File_in)/FileSize(File_out):5:3,size);
  GoToXY(28,12);
  writeln(Коэффициент сжатия = ',size);
 
  close(File_in);
  close(File_out)
END;
 
{======================================================================}
Procedure Result_2;
var size:string;
 
BEGIN
  reset(File_in);
  reset(File_out);
 
  textcolor(10);
  str(FileSize(File_in),size);
  GoToXY(26,9);
  writeln(Размер сжатого файла* = ',size);
 
  str(FileSize(File_out),size);
  GoToXY(26,10);
  writeln(Размер восстановленного файла* = ',size);
 
  close(File_in);
  close(File_out)
END;
 
{========================================================================}
procedure Start(act:string);{Основная процедура программы}
 
VAR Name1,Name2:string;      {про помощи ф-ции в скобках выбираем действие}
 
  BEGIN                     {производимое над файлом}
       writeln;
       write(Введите имя входного файла --> '); {запрос имени сжимаемого (восстанавливаемого)}
       readln(Name1);                            {файла*}
 
       {$i-}               {загрузка файла и проверка его существования}
       Assign(File_in,Name1);
       Reset(File_in) ;
       {$i+}
        if IOResult<>0 then
          begin
               writeln('ФАЙЛ НЕ НАЙДЕН!');
               readkey;
               halt (0);
          end;
       write('Введите имя выходного файла* --> ');
       readln(Name2);
 
       Assign(File_out,Name2);
       rewrite(File_out);
       if Name1<>'' then    {начало выбираемого действия}
         if act='Compress' then
           begin
             Compress(Name1,Name2);
             gotoXY(28,7);
             writeln('Файл успешно заАрхивирован*!');
             Result_1;
           end
         else if act='DeCompress' then
           begin
             Decompress(Name1,Name2);
             gotoXY(28,7);
             writeln('Файл успешно разАрхивирован*!');
             Result_2;
           end;
  END;
 
 
BEGIN
     Start(Action);{запускаем основной процесс}
     readkey;
END.