Задача на работу с массивом + char (Delphi в консольном режиме)

[[COOLER]]

Дано предложение. Признак конца ввода - точка. В заданном слове после заданной буквы вставить другую заданную букву.
P.S. Предложение должно быть загнано в массив.

[IT-man]

А вот это пример)))

program Project2;

{$APPTYPE CONSOLE}
uses
  SysUtils;
var s:string;
str:array[1..100] of string;
i,n,k:integer;
sub:string;
c,h:char;
begin
readln(s); // ввод строки
Readln(sub);// ввод слова
readln(c);// запрос символа после которого вставлять
Readln(h); // ввод символа который вставлять
i:=1;
k:=1;
while s[i] <>'.' do begin
if s[i]=' ' then inc(k)
else str[k]:=str[k]+s[i];
inc(i);
end;
for i:=1 to k do
if str[i]=sub then begin
n:=pos(c,str[i]);
if n<>0 then
insert(h,str[i],n+1);
end;
for i:=1 to k do write(str[i],' ');
readln;
end.

[RUSt88]

строка в принципе это и есть массив - массив символов.

допустим, A - заданная буква, после к-рой ставим др. заданную букву B, N - кол-во символов в строке S
(полностью нерабочий код)

procedure TForm1.Button1Click(Sender: TObject);
var
N, i, j: integer;
S: string;
A, B: char;
mass: array of char; \\динамический массив

begin
a:= 'd'; b:='x'; \\можно предложить ввести с клавы
s:= Edit1.Text; \\ имею ввиду что вводится строка в EditBox
n:= length(s) - 1;
for i:= 0 to n do
if s[i] = A then insert(b, s, i + 1); \\ вставляем букву где надо

\\записываем волучившуюсю строку в новый массив и выводим его
n:= length(s) - 1; \\заново считаем кол-во символов в строке
SetLength(mass, N + 1);\\устанавливаем размерность массива
for i := 0 to n do begin
mass[i]:= s[i];
edit1.Text := Edit1.Text + mass[i];
end;

Edit1.Text := s;
end;

в заданном слове сделаешь сам

[[COOLER]]

Спасибо большое !

[IT-man]

Ув.RUSt88 несколько поправочек
1) нету в консольном приложении ни эдитов не баттонов не тем более форм
2) нужен не массив символов,а массив слов (но это мое имхо )

[RUSt88]

Сообщение от IT-man

Ув.RUSt88 несколько поправочек
1) нету в консольном приложении ни эдитов не баттонов не тем более форм
2) нужен не массив символов,а массив слов (но это мое имхо )

ЭТО ПРИМЕР!!!
Если человек понимает, то сообразит где поменять EditBox.Text на string, а EditBox.Text := S на WriteLn(S)

[IT-man]

ЭТО ПРИМЕР!!!

Странный пример(надо уж тогДа было на псевдокоде)
А вот пост№2 - это пример)))

[[COOLER]]

Ребят, я вообще ничего не понял в том коде, можете мне написать финальную версию безо всяких замен и с комментариями ? Пожалуйста.
P.S. Массив типа char состоит из букв.

[RUSt88]

Сообщение от [COOLER]

Ребят, я вообще ничего не понял в том коде, можете мне написать финальную версию безо всяких замен и с комментариями ? Пожалуйста.
P.S. Массив типа char состоит из букв.

халявы ищешь? тебе итман написал, там чуток исправить!

хочешь халявы? Получай!
вот алгоритм:
ищешь заданное слово в заданной строке посимвольно (с помощью цикла сравнивай каждую буковку, она - не она, хорошая - плохая)
когда найдешь, ищешь заданную буковку в найденном слове посимвольно (с помощью цикла сравнивай каждую буковку, она - не она, хорошая - плохая)
когда найдешь, вставляешь заданную буковку на позицию +1 от найденной.
запишешь полученную строку в массив с помощью цикла посимвольно
и наконец чуть-чуть живого кода

WriteLn(S); \\ну или что там у тебя
ReadLn() \\это чтоб консолька не убегала с глаз, а команды ждала

[[COOLER]]

Большое всем спасибо !