Архиватор

[Эльзара]

Архиватор. 100 баллов.

Входной файл arh.in
Выходной файл arh.out
Ограничение по времени 1 секунда на тест
Ограничение по памяти 16 мегабайт

Денис очень хочет занять свое место в программировании. С недавних пор он увлекся архивированием файлов, и даже написал свой архиватор, который архивирует пока только текстовые файлы. Архивировать Денис может пока только английские тексты из заглавных букв. Кроме букв архиватор распознает и работает с символами «пробел» - 27ой символ в кодовой таблице и символ «запятая» - 28ой символ в кодовой таблице. Суть алгоритма сжатия файлов заключается в следующем:
1. для архивирования каждой строки создается временно нулевой двухмерный массив из n строк и 28 столбцов.
2. При чтении текстового файла в первую строку массива, обозначающую номер символа в предложении, в столбце соответствующем номеру буквы в алфавите записывается 1.
3. Далее во второй строке массива появляется 1 в столбце, соответствующем номеру второго символа предложения в алфавите (в кодовой таблице) и т д.
При окончании предложения архиватор, переводит, начиная с последних строк, последовательности из n нулей и единиц (снизу вверх), как числа, из двоичной системы в десятичную и записывает по порядку в двумерный массив десятичные числа. Количество строк в полученном массиве соответствует количеству предложений. А количество столбцов 28. Полученный массив представляет собой содержимое Денисова архива.
Ваша задача - написать программу, которая будет распаковывать Денисовы архивы.

Формат входного файла.
В первой строке файла arh.in записано одно число n (0<n<10) - число предложений в архивном файле.
В последующих n строках записано по 28 чисел, разделенных пробелами.
Гарантировано что число букв в предложении не превышает 30. В конце каждого предложения необходимо добавлять точку.

Формат выходного файла.
Восстановленный текст.

Примеры файлов входных и выходных данных:
arh.in
1
0 0 0 0 16416 0 0 8192 1 0 0 4 1152 0 2056 0 0 32768 0 4096 0 16 0 0 256 0 578 0

arh.out
I LOVE MY MOTHER.

[TinMan]

а чего хочешь-то?.. ты забыла это сказать..

[New man]

Я писал write(f,'Hello.')

[Mad_Cat]

файлы сами приделывайте

var mas:array[1..28] of string[30];
inp:string;
buf:integer;e,i:integer;
Res:string;
{Получение символа по номеру}
function getChar(ch:integer):char;
begin
case ch of
1..26:getChar:=chr(ord('A')+ch-1);
27:getChar:=' ';
28:getChar:=',';
else getchar:=';';
end;
end;
{Переворот строки}
Function GetOStr( vv:string):string;
var i:integer;
ch:char;
begin
for i:=1 to length(vv) div 2 do
begin
ch:=vv[i];
vv[i]:=vv[length(vv)-i+1];
vv[length(vv)-i+1]:=ch;
end;
GetOStr:=vv;
end;
{перевод 10-->2}
function DEC2BIN(DEC: LONGINT): string;
var
  BIN: string;
  I, J: LONGINT;
begin
  if DEC = 0 then
    BIN := '0'
  else
  begin
    BIN := '';
    I := 0;
    while (1 shl (I + 1))<=DEC do
      I := I + 1;
    for J := 0 to I do
    begin
      if (DEC shr (I - J)) = 1 then
        BIN := BIN + '1'
      else
        BIN := BIN + '0';
      DEC := DEC and ((1 shl (I - J)) - 1);
    end;
  end;
  DEC2BIN := BIN;
end;
begin
inp:='0 0 0 0 16416 0 0 8192 1 0 0 4 1152 0 2056 0 0 32768 0 4096 0 16 0 0 256 0 578 0';
i:=1;
while pos(' ',inp)<>0 do begin
    val(copy(inp,1,pos(' ',inp)-1),buf,e);
    mas[i]:=DEC2BIN(buf);
    inc(i);
    delete(inp,1,pos(' ',inp));
    end;
    val(inp,buf,e);
    mas[i]:=DEC2BIN(buf);
for i:=1 to 30 do
res:=res+';';
For i:=1 to 28 do begin
mas[i]:=GetOStr(mas[i]); end;
For i:=1 to 28 do
For e:=1 to length(mas[i]) do
if mas[i][e]='1' then res[e]:=getChar(i);
while res[length(res)]=';' do delete(res,length(res),1);
res:=res+'.';
writeln(res);
readln;
end.

результат в ПаскальABC

I LOVE MY MOTHER.

[В00М]

наверно глупый вопрос задаю, но все же.
после запуска программы выдает "I LOVE MY MOTHER" как избавится от это записи? и второе мне очень нравится твоя программа мне препод задала как курсовую написать программный код архиватора на паскале. Прошу помощи просто неделю не сплю ничего путного пока не вышло а сроки сдачи поджимают...