Файлы.Паскаль

[Екатерина)]

Помогите пожалуйста, бедной девушке!!!))) aplod sos
Файлы, паскаль.

а)Дан текстовый файл, содержащий строки.Найти:
1. Количество строк.
2. Количество строк начинающихся и заканчивающихся одинаковыми символами.
3. Симметрические строки.

б)Дан текстовый файл, в котором хранятся данные о сотрудниках фирмы: ФИО, адрес(улица, дом, квартира) и дата поступления на работу(месяц, год).Опредилить есть ли в заданном списке однофамильцы и если есть, то вывести их фамилии и адреса.

в) Ввод. слово из файла INPUT.txt. Записать в файл с именем OUTPUT.txt слова, в записи которой нет одинаковых букв.

[Stilet]

Количество строк.

var f:text;s:string;cnt1:integer;
begin
 assign(f,'Файл');reset(f);
 cnt1:=0;cnt2:=0;
 while not eof(f) do begin
  Readln(s);inc(cnt1);
 end;
 close(f);
end.

Остальное сложнее...

[Onekey]

a)- 2. вот что приходит на ум. Берем строку (s: string)
потом берем первый символ (s[0]) и сравниваем его с последним. если они равны то переvеную ( скажем I) Увеличиваем на 1 и переходим на следющию строку. и так пока не достигнут конец фаила!

в) точно также. Берём первый символ, проверяем есть ли такой в строке, если есть то пропускаем, если нету то записываем.