Текст стандартных функций и процедур для работы со строками в Delphi

[Pixma]

Всем привет.
Напишите пожалуйста:
текст стандартной функции pos,copy.
и текст процедуры delete,insert.
(Суть моей задачи в том что бы написать программу которая заменяла бы 2 последних элемента каждого слова даной строки разделённой пробелами, заменит на '**'; без использования стандартных процедур и функций. )

[Serge_Bliznykov]

а для чего Вам текст стандартных функций?

Подскажу.
в строках Delphi к любому символу строки можно обратиться через его индекс - ThisString[i]
А если объявите строчку как ShortString
так длину строки можно брать из ThisString[0] (нулевой индекс - длина строки)

для того, чтобы легче получить последнее слово, добавьте в строку пробел
ThisString := ThisString + ' ';

ну а дальше - цикл i:=1 to ThisString[0]-1 do

ну и для затравки заменить последний символ слова на *:

  for i:=1 to ThisString[0]-1 do
   if (ThisString[i]<>' ') and (ThisString[i+1]=' ') then 
     {индекс i сейчас на последнем символе слова - дальше думайте, как получать начало слова ...}
        ThisString[i] := '*';

[Pixma]

Мне на защиту лабораторной дали задание написать задачу без помощи стандартных процедур и функций, только с использованием Length();

[alex_fcsm]

В предложенном вам варианте замените

ThisString[0]-1

на

Length(ThisString)-1