текстовый файл, помогите, пожалуйста, с текстовым файлом Опции

[azzaq1]

В файле *.txt набран текст. Вывести все символы, которые встречаются во второй половине.
Вывести латинскую букву, которая встречается в тексте реже остальных в 1 и 3 строках.

[Client]

которые встречаются во второй половине.

Половине чего? слова? предложения?

mas : array['a'..'z'] of byte; 
...
for i := 1 to length(s) do
  inc(mas[s[i]);

Сделать это для 1 и 3 строки и найти минимальный элемент массива

Сообщение отредактировано: Client - 2.05.2010 15:12

[azzaq1]

Половине чего? слова? предложения?

.......текста

[Client]

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

[azzaq1]

spasibo!

[azzaq1]

[i]Во второй раз дойдя до второй половины.[/i]

как это сделать????

[azzaq1]

В файле *.txt набран текст. Вывести все символы, которые встречаются во второй половине.
Вывести латинскую букву, которая встречается в тексте реже остальных в 1 и 3 строках.

Для каждого символа заданного текста указать, сколько раз он встречается в тескте.

mas[i]:=0;
for i:= 1 to length(str1) do
begin
x:=ord(str1[i]);
mas[x]:=mas[x]+1;
end;
for i:=1 to 255 do 
begin
y:=chr(i);
writeln(y,'встречается', mas[i],'раз');
end;

Так работает...Но как-нить по-другому можно сделать??