задачи на строки

[Анатолий147711]

Доброе время суток. Помогите пожалуйста понять, каким образом решать следующие задачи:
1. Дан текстовый файл, содержащий строковые величины S. Преобразовать каждую из них, не привлекая других литерных величин, по следующему правилу: в каждом слове заменить всякое повторное последующее вхождение первой буквы этого слова на символ "_"(подчёркивания). Например, слово "мама" преобразуется в слово "ма_а".
2.Дан текстовый файл, содержащий строковые величины S. В последней его строке находится целочисленная величина k,она, кстати, должна вводиться с клавиатуры(не понял немного саму идею, не с вводом, а с тем, как она может находиться в последней строке и вводиться одновременно). Оставить в данных строковых величинах только те слова, длина которых не больше k.
3.Дан текстовый файл, содержащий строковые величины S, значения которых - полные имена файлов, т.е. имя диска, список каталогов(путь), собственно имя файла и его расширение. В результирующий файл записать собственно имя файла(без указания пути к нему).

[Анатолий147711]

Забыл сказать, сами программы в паскале пишутся.

[Alex11223]

И? Проблема-то в чем именно?

[Анатолий147711]

Проблема вот в чем. В первой: каким образом я могу заменить всякое повторное последующее вхождение первой буквы, а именно, как реализовать это у каждого из введенных слов, ведь файл содержит несколько строковых величин. Во второй проблема с тем, как величина может быть в последней строке и еще и вводиться. А в последнем нужно просто оставить из введенной информации имя файла, верно?

[Alex11223]

В последнем непонятно что именно в файле.
Наверно там просто пути вида C:\dir\file.txt и надо взять то, что после последнего \ (или /).

[Анатолий147711]

А как быть с первой и второй?

[Aleksandr H.]

1. считал С, в цикле просмотрел если С(и) = С(1) заменил С(и) на "_"

[Анатолий147711]

Вторую, наверное, никто, как и я , не понял. Нет, ввести число, определить длину слов и сравнить вполне возможно, только покоя условие не дает

[newerow1989]

1:

var s:string;
    i:integer;
    p:set of char;
begin
   Write('s = ');Readln(s);
   p:=[];
   For i:=1 to Length(s) do
      If s[i]=' ' then
         p:=[] else
         If s[i] in p then
            s[i]:='_' else
            p:=p+[s[i]];
   Writeln(s);
   Readln;
end.

3:

var s:string;
    i:integer;
begin
   Write('s = ');Readln(s);
   For i:=Length(s) downto 1 do
      If (s[i]='\') or (s[i]='/') then
      begin
         s:=Copy(s,i+1,Length(s));
         Break;
      end;
   Writeln(s);
   Readln;
end.