Строки, Работа со строками Опции

[7777]

Помогите с написанием программы:
Создать приложение, предлагающее пользователю ввести строку текста, затем печатает все слова, заканчивающаяся и начинающаяся на заданную букву в тексте и подсчитывает количество таких слов (подстроки отделяются пробелом). Заменить заданную букву на '!' и подсчитать количество таких замен.

Частичный код на Паскале(нужно на Delphi):
program xa_va;
var
st:string;
procedure sum_;
var
s:string;
i,j:integer;
begin
writeln('vvedite bykvy');
readln(s);
while (pos(' ',st)>0) do
begin
j:=pos(' ',st);
if (st[1]=s) and (st[j-1]=s)
then begin
for i:=1 to j-1 do
write(st[i]);
end;
write(' ');
delete(st,1,j);
end;
end;
BEGIN
writeln('vvedite ctroky');
readln(st);
sum_;
readln;
END.

Сообщение отредактировано: 7777 - 11.05.2008 17:47