Pascal, файлы. Произвести распаковку файла

[AlexGur]

Доброго утра, дня, вечера, ночи!

задача по файловым типам данных

16.2. Дан символьный файл, полученный с помощью про-граммы варианта 16.1. Произвести «распаковку» этого файла.

не знаю, нужен или нет вариант 16.1, т.к. препод сказал, что вар.16.1 делать не надо, а взять че-то произвольно (хрен знает че). Если бы, я в этом "шарил", то сформулировал бы граммотней. Насколько, я понял задание получается такое -

Дан символьный файл, произвести «распаковку» этого файла.


навсякий случай вариант 16.1
16.1. Дан символьный файл. Произвести "сжатие" этого файла следующим образом. Каждая последовательность, состоящая из не-скольких вхождений одного и того же символа, заменяется на запись типа x k, где х – число вхождения символа k в исходную последовательность. Сравнить размеры файлов.

Заранее, спасибо

[capta1n]

действие обратное сжатие добавляет число перед элементом, который встречается это число раз, а ты должен сделать наоборот - по количеству распаковать файл - то есть написать в файле один и тот же символ столько раз, какое число указано перед этим символом - обратное действие

[pomoshnic]

var f,t:text;
i:integer;
c:char;
s:string;
begin
writeln('Vvedite ima faila');
readln(s);
assign(f,s);
{$i-} reset(f); {$i+}
if ioresult<>0 then 
begin
Writeln('fail nenaiden');
readln;
halt
end;
assign(t,'exit.txt');
rewrite(t);
while not eof(f) do
begin
read(f,i,c);
for i:=1 to i do write(t,c);
end;
close(f);
close(t);
end.

[capta1n]

да в принципе два раза вызывать процедру read не обязательно

read(f,b1);
read(f,b2);

- просто напиши read (f,b1,b2) это так - совет