Кодирование длин серий . Текстовый файл. Опции

[lopata]

Помогите пожалуйста разобраться как делать.

Кодирование длин серий (Run-length encoding, RLE) - простая техника сжатия,при которой каждая последовательность знаков, которые состоят более чем из 2 одинаквых знаков, кодируется по первому знаку и длине последовательности.
Реализуйте простой вариант этого способа в форме программы фильта, которая кодирует и снова декодирует текстовые файлы,в которых содержатся только строчные и прописные буквы , знаки препинания и пробелы (но не цифры).Ваша программа должна предлогать следующие возможности вызова из камандной строки (метасимболы[...] и ...|... стоят для опций или альтернатив):
RLE [ -c | -d ] [inFile] [outFile]

Значение параметров:
-c входной файл нужно кодировать (значение по умолчанию),
-d входной файл нужно декодировать,
inFile имя входного файла, иначе стандартный ввод (input)
outFile имя выходного файла, иначе стандартный вывод (output).

Пример:



Файлы я пока не трогала...Попыталась просто кодировать. В переменную ch сохраняю символ, если он равен следующему - увеличиваю счетчик, если нет - скидываю в строку str2 и текущий символ сохраняю снова в ch и так далее. Не работает..:

var  x, str1, str2, ch,countstr : string;
      i, k, count : integer;
begin
countstr:= '';
ch := '';
str2 := '';
count := 0;
Readln(str1);
for i := 1 to Length(str1) do begin
    if i=1 then begin
       ch:=str1[1];
       count:= 1;
    end
       else begin
            if ch= str1[i] then
               inc(count)
            else begin
                 if count > 2 then  begin
                             Str(count,countstr);
                             str2:= countstr+ch
                 end
                 else begin
                      for k := 1 to count do
                        str2 := str2+ch;
                      ch := str1[i];
                      count := 1;
                 end;
            end;
end;   
end;
end.

[TarasBer]

Что такое командная строка - знаешь? Говоря на пальцах, это то, что есть в любом нормальном файловом менеджере, там можно написать myProgram.exe, а можно написать myProgram.exe a b c d, через пробел (если же написать "myProgram.exe a" b c d, то часть, заключённая в кавычки, будет пониматься как один параметр, несмотря на то, что в ней содержится пробел). Это означает, что ты вызываешь программу myProgram.exe с параметрами a, b, c, d. То, что написано в свойствая ярлыка в строке "Объект" - это тоже команда, как правило, она там без параметров. Когда ты открываешь файл "a.txt", на самом деле вызывается команда notepad.exe a.txt, то есть в качестве параметра идёт имя открываемого файла. Поэтому все приличные программы знают, когда надо при запуске показать пустое окно, а когда - сразу открыть файл.

Программа получает информацию о них через функции ParamCount (в данном примере, с myProgram.exe a b c d - 4), и через ParamStr(N) (N от 0 до 4).
Твоя программа может принимать до 3 параметров, надо отдельно разобрать случаи разного их количества, чтобы сформировать, что программа должна делать. Типа так:

var
  Decode: boolean;
  InFile, OutFile: string;

...
  Decode := False;
  InFile := '';
  OutFile := '';
  if ParamCount >= 1 then begin
    if ParamStr(1) = '-c' then Decode := False
    else if ParamStr(1) = '-d' then Decode := True
    else InFile := ParamStr(1);
  end;
  if ParamCout >= 2 then begin
    if InFile = '' then InFile := ParamStr(2) else OutFile := ParamStr(2);
  end;
  if ParamCount >= 3 then begin
    if OutFile = '' then OutFile := ParamStr(3);
  end;