Помогите решить 3 простеньких задачи

[AstraZak]

Сам просто понятия не имею как это всё реализуется,если конечно не сложно помогите.

Задача №1
Заменить в заданной строке все буквы Ch1 на Ch2 (их значения вводить с клавиатуры).

Задача №2
Дана символьная строка, cодержащая текст, который заканчивается точкой. Найти длину самого короткого слова и самого длинного слова.

Задача №3
Упорядочить данный массив английских слов по алфавиту, рассматривая только первый символ каждого слова.

[Хыиуду]

1. while pos(ch1,s)>0 do s[pos(ch1,s)]:=ch2;
2, 3. Раздел "Алгоритмы", тема "Разбиение строки на слова"

[BHy4ok]

1:

Код: Выделить всё

uses crt;
var
   s, s1: string;
   a, b: char;
   i: integer;
begin
     clrscr;
     writeln('input string: ');
                    readln(s);
     writeln('input 1st simbol: '); {символ который нужно заменить}
                    readln(a);
     writeln('input 2nd simbol: '); {символ на который нужно заменить}
                    readln(b);
     For i:=1 to length(s) do
begin
     if s[i]=a then s[i]:=b;
        end;
     writeln(s);
                readln;
     end.

Исправлено!

[AstraZak]

BHy4ok,
Биг сп,буду код сейчас разбирать.

[Хыиуду]

Вот этот кусок -

Код: Выделить всё

     For i:=1 to length(s) do
begin
     INSERT(s1,s,i);
     end;

- не имеет здесь никакого смысла, в лучшем случае ничего не сделает, в худшем - исказит результат до неузнаваемости

[BHy4ok]

Вот этот кусок -
- не имеет здесь никакого смысла, в лучшем случае ничего не сделает, в худшем - исказит результат до неузнаваемости

По ходу ничего не проверял. Написал запустил - работает, запостил.
Давно за паскаль не садился

п.с. поправил.