Стоки в Паскали

[Айдар]

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

1. В строке все символы ! заменить на . (точку)
2. Подсчитать сколько раз встречается подстрока "?-"
3. Выяснить имеются ли в строке соседнии одинаковые символы (например грамматики -мм).
4. Вывести на экран то слово которое первое идет по алфавиту (я гулял в лесу и ел апельсины, ответ=апельсины)
5. Вопрос, как в тексте собрать все последнии буквы и из них составить слово.

[NSvirus]

Если хочешь, могу объяснить... пиши в асю

[Айдар]

Блин, а нельзя здесь объяснить.

[russian-stalker]

2:

program Project2;
var
s:string;
i:integer;
begin
i:=0;
readln(s);
while length(s)<>0 do
begin
if pos('?-',s)<>0 then
begin
i:=i+1;
delete(s,1,pos('?-',s));
end else
delete(s,1,length(s));
end;
writeln(i);
readln(i);
end.

[ОДИНОЧЕСТВО В СЕТИ]

В строке все символы ! заменить на . (точку)

readln(s)
for i := 1 to length(s) do
if s[i]='!' then s[i]:='.';
writeln(s);

Выяснить имеются ли в строке соседнии одинаковые символы (например грамматики -мм).

readln(s)
for i := 1 to length(s)-1 do
if s[i]=s[i+1] then 
writeln(s[i],s[i+1]);

Вывести на экран то слово которое первое идет по алфавиту (я гулял в лесу и ел апельсины, ответ=апельсины)

uses crt;
var s,sub:string;
    i,j,n:integer;
    a:array[1..100] of string;
    q:set of char;
begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
q:=[' ',',' , '-', '!', '?', ';',':','.'];
repeat
inc(i);
if s[i] in q then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if not (s[i] in q) then sub:=sub+s[i];
until (i=length(s))or(s[i]='.');
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
for i:=1 to n-1 do
 for j:=n-1 downto i do
  if a[j]>a[j+1] then
  begin
  sub:=a[j+1];
  a[j+1]:=a[j];
  a[j]:=sub;
  end;
  writeln(a[1]);
end.

[Айдар]

Спасибо вам за помощь, а вот 4 и 5 как сделать?

[Serge_Bliznykov]

4-я задача решается после разбора строки по словам. поищите, уж что-что, а разбор по словам здесь был многократнейше!

5-я задача. в условии пропущено слово:

тексте собрать все последнии буквы

последние буквы ЧЕГО? Слов, предложений, абзацев?...