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

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

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

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

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

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

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

spasibo!

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

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

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;

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