Вывод текста в окно вывода

{Кодирование}
procedure Compression(inFile: text; outFile: text);
var
   sym, tmp : Char;
   num : Byte;
   ext : Boolean;
begin
 
     {флаг выхода}
     ext := True; 
     {считать первый символ}
     Read(inFile,sym);
     {продолжать пока флаг выхода True}
     while ext = True do
     begin
          {если встретился служебнвый символ, то повторяем его}
          if sym = '%' then
          begin
               Write(outFile, sym);
               Write(outFile, sym);
               continue;
          end;
 
          num := 1;
          {подсчитываем повторения символов до 255}
          while num < 255 do
          begin
               {если конец файла то на выход}
               if (EOF(inFile)) then
               begin
                    ext := False; break;
               end;
               {сиытать символ и сравнить}
               Read(InFile, tmp);
               if sym <> tmp  then break;
               {счетчик сиволов + 1}
               Inc(num);
          end;
 
          {если счетчик более 4 повторений}
          if num > 4 then
          begin
               Write(outFile, '%'); {пишем служебный}
               Write(outFile, sym); {сам символ}
               Write(outFile, Char(num)); {число повторений}
               Write(outFile, '%'); {закрыть служебным}
          end
          else {иначе выписываем символы сколько и и встретилось}
          begin         
              {пока не 0}
              while num > 0 do
              begin
                   Write(outFile, sym);
                   Dec(num); {декремент счетчика}
              end;
          end;
          {взять текущий символ}
          sym := tmp;
     end;
end;
 
{Раскодирование}
procedure Decompression(inFile: text; outFile: text);
var
   sym, tmp, s : Char;
   num : Byte;
   ext : Boolean;
begin
 
     ext := True; 
     Read(inFile, sym); { считать символ}
 
     while ext = True do
     begin
          {если конец файла, обозначить флаг выхода в False}
          if EOF(inFile) then
          begin
               ext := False;
          end;
          
          {считываем симывол если не конец файла}
          if ext = True then 
            Read(inFile, tmp)
          else tmp := Char(0);
          {если это служебные символы}
          if (sym = '%') and (tmp = '%') then
          begin
               Write(outFile, sym); {запишем один раз}
               continue;
          end;
          {иначе если служебный, то выписываем повторения}
          if sym = '%' then
          begin
               Read(inFile, s);
               num := Ord(s); {взять число повторнеий}
               while num > 0 do
               begin
                    Write(outFile, tmp); {записыфваем символ}
                    num := num - 1;
               end;
               Read(inFile, tmp); {считываем 2 раза за служебного сивола, который закрывает}
               Read(inFile, tmp);
          end
          else Write(outFile, sym); 
 
          sym := tmp; {взять текущий символ}
     end;
end;
 
 
var
   ch: char;
   path: String;
   inFile, outFile: text;
 
begin
 
Writeln('Algorithm RLE');
 
     Writeln('Input path to source file:');
     Readln(path);  {путь к файлу}
     Assign(inFile,path); {назначить файл}
     if not FileExists(path) then {проверить существование}
     begin
          Writeln('File not success!'); exit;
     end 
     else Reset(inFile);
       
     {файл для записи}
     Writeln('Input path to result file:'); Readln(path);
     Assign(outFile,path); 
     Rewrite(outFile);  
 
     Writeln();
     Writeln('1 - Compression');
     Writeln('2 - Decompression');
     Readln(ch); {выбор алгоритма}
 
     if ch = '1' then
         Compression(inFile, outFile)
     else
         Decompression(inFile, outFile);
 
     {закрыть файлы} 
     Close(inFile);
     Close(outFile);
end.

     writeln(path,':');   System.IO.File.ReadAllLines(path).Println(NewLine);