Работа с текстом..., помогите с алгоритмом.. Опции

[Роман]

Здравствуйте, нужна ваша помощь....
Вот текст задания:

Составить алгоритм и программу обработки фразы (строки текста), находящемся в текстовом файле Inputtxt.txt.
В результате работы программы в файле отчета необходимо в алфавитном порядке расположить буквы из которых состоит текст с их количеством.
Пример:
Содержание исходного файла Inputtxt.txt слово "МАМА"
В результате работы программы получен файл следующего вида:

Буква Количество
А 2
М 2
(служебная информация, не более 2 байт для каждого символа фразы)

В служебной информации должны быть закодированы (зашифрованы) данные о каждой букве фразы.
В дальнейшем, при запуске этой программы входным файлом должен стать файл отчета со служебной информацией. В результате работы должен быть получен текст исходной фразы в файле с именем Output.txt

Вот собственно начал писать программу:

Program labb;
uses crt;
var k,j,m,g,d,l:integer; I,O: text; s:char;
A: array [1..255] of integer;
begin
m:=0;
assign (I,'Input.txt');
reset(I);
while not Eof(I) do
begin
m:=m+1;
read(I, s);
A[m]:=ord(s);
writeln(A[m]);
end;
Close(I);
assign(O,'Output.txt');
l:=0;
for k:=1 to 255 do
begin
if (A[k]<>0) then
begin
append(O);
write(O,chr(A[k]),' - ',l);
writeln(O);
end;
end;
Close(O);
g:=0;
assign(O,'Output.txt');
append(O);
writeln(O,'***********************************');
for j:=1 to m do
begin
append(O);
g:=g+1;
A[g]:=256-A[g];
write(O,chr(A[g]));

end;
Close(O);
readkey;
end.
}

То есть я описал массив, записал аски коды символов в него, собственно возникла проблема с подсчетом количества символов(символы как русские так и англ.), зашифровал я методом Atbash, думаю расшифровать смогу при повторном запуске программы, метку в виде звёздочек поставил, а вот как ее потом определить пока не думал

Сообщение отредактировано: Роман - 13.03.2011 12:14

[Роман]

Вобщем уточнил: расположить надо не по алфавиту а по аски кодам что упрощает задачу. ( впринципе по алфавиту располагает, только знаки препинания ставит первыми)
Всем спасибо, подумал подумал и сделал сам, только в программе делается запрос: Расшифровать текст? если нажимаешь y -расшифровывает, если -n, то нет. Но преподаватель сказал что это не критично, так что лаба вроде бы готова!!! Даже не знаю нужно ли код выкладывать?)))
P.S только одна проблема: у больших букв код Аски другой, поэтому программа считает большие и маленькие буквы отдельно думаю не критично, но хотелось бы избавиться от данной беды, или никак?

Сообщение отредактировано: Роман - 15.03.2011 12:28

[Lapp]

Вобщем уточнил: расположить надо не по алфавиту а по аски кодам что упрощает задачу. ( впринципе по алфавиту располагает, только знаки препинания ставит первыми)

Непонятно. Проблема, о которой говорил volvo осталась, где и была. Поясни, плз, как ты из этого:
А 2
М 2
- делаешь МАМА? Почему не АМАМ или АММА?

Всем спасибо, подумал подумал и сделал сам, только в программе делается запрос: Расшифровать текст? если нажимаешь y -расшифровывает, если -n, то нет. Но преподаватель сказал что это не критично, так что лаба вроде бы готова!!! Даже не знаю нужно ли код выкладывать?)))

Заинтриговал.. Не понимаю, как запрос помогает расшифровке. Да, я хотел бы увидеть код, если это возможно, пожалуйста. Просто для того, чтоб понять условие задачи.

P.S только одна проблема: у больших букв код Аски другой, поэтому программа считает большие и маленькие буквы отдельно думаю не критично, но хотелось бы избавиться от данной беды, или никак?

Если рассчитывать только на латинский алфавит, то это просто. Используй функцию UpCase(c:char):char из модуля System (который подключен всегда по умолчанию).
А если ты хочешь иметь дело с русскими буквами тоже, то несколько сложнее, и тому же зависит от кодовой страницы (1251, 866..) Если тебе это действительно нужно - скажи, объясним.