Мое извращенство2 или крестики нолики по русски

[Arigato]

Не, вы не поняли. Переведите по вашему алгоритму такой код:

программа Тест;
начало
  Вывод ("Это начало строки. А это ее конец");
конец.

[Alex Cones]

Примерно так:

program ffrgt;
Begin
 Writeln(' {игнорируем текст внутри кавычек} Это начало строки. А это ее конец');
End.

[Arigato]

Сообщение от Alex Cones

{игнорируем текст внутри кавычек}

И как это вы будите делать при простой замене без анализатора?

[Alex Cones]

Анализируем и заменяем текст по словам. После замены слова, отрезаем от строки (где содержится текст (Memo1.text)) отрезаем кусочек с переведенным словом.

If Pos(S,'''') = 1 Then
Begin
 Delete(S,1,1);
 N:=Pos(S,'''');
 Delete(S,1,N);
End;

[Arigato]

Сообщение от Alex Cones

Анализируем и заменяем текст по словам. После замены слова, отрезаем от строки (где содержится текст (Memo1.text)) отрезаем кусочек с переведенным словом.

И как это согласуется с вашими же словами выше:

Сообщение от Alex Cones

> а не автозамена в тексте
Нет, ну почему же.
Заменяем следующее на Begin:
Начало[пробел]
}Начало[пробел]
[пробел]Начало[пробел]
;Начало[пробел]
+то же самое, но с маленькой буквы.
Зачем анализатор? Так вы 50-ти килограммовый текст будет 30 минут анализировать.

Если автозамена - значит автозамена. Если что-то анализируем - значит анализатор
Более того, что значит "с маленькой буквы"? А если набрано слово целиком из заглавных букв?
Приведённый код вообще не понял. Почему позиция кавычки должна = 1?

P.S. У меня складывается впечатление, что у вас попросту нет опыта написания более-менее серьёзных проектов.

[Alex Cones]

Согласен, пусть будет слабенький анализ.

Почему позиция кавычки должна = 1?

Просто я привел часть кода, а не весь код.
Схема примерно такая:

S:=Memo1.Text;
While S<>'' do
 Begin
  If (Pos(S,'Начало ')) = 1 Then
   Begin
    S2:=S2+'Begin ';
    Delete(S,1,7);
   End
 Else
 ...
 Аналогично все остальные слова
 ...
Еще проверим и кавычки:
If Pos(S,'''') = 1 Then
Begin
 Delete(S,1,1);
 N:=Pos(S,'''');
 S2:=S2+Copy(S,1,N);
 Delete(S,1,N);
End;

Если ни один вариант не сработал:
 Begin
  S2:=S2+S[1];
  Delete(S,1,1);
 End;


 End;

А на заглавную букву.... Наверное придется сначала код прогнать на устранение заглавных и перевод в строчные. Как там AnsiLowerCase или что?

[Arigato]

А если пользователь напишет "НаЧаЛо"?

[Alex Cones]

А на заглавную букву.... Наверное придется сначала код прогнать на устранение заглавных и перевод в строчные. Как там AnsiLowerCase или что?

Так пойдет?

[pu4koff]

Зачем городить огород непонятных замен, потом затыкать в этих заменах неучтенные "дырки" непонятно как, когда можно от силы за неделю (по хорошему и пары дней на это хватит с головой) написать нормально спроектированный лексический анализатор?
Для справки: функция Pos находит слова не моментально, а перебирает все символы с начала строки. В данном случае заменяться будет 90% текста, т.е. "ручной" посимвольный перебор (который будет в анализаторе) вероятно будет работать быстрее, чем функция Pos.
Я почему-то уверен, что нормальный лексический анализатор будет работать быстрее и лучше, чем такие замены.
Ну и если уж делаем регистронезависимый язык, то нужно и искомые слова и исходный текст переводить в верхний/нижний регистр, чтобы не перебирать все возможные варианты написание.
Кстати, текст ошибок тоже придётся как-то обрабатывать и переводить. Или же придется прикручивать еще синтаксический анализатор, чтобы количество ошибок, получаемых от компилятора, было минимальным. А вот с синтаксическим анализатором будет всё куда "веселее", чем с лексическим

[Alex Cones]

А синтаксисом пускай занимается паскалевский компилятор. Мы просто будем отслеживать ошибку, которую выводит компилятор, считывать оттуда инфу и тыкать пользователя носом в эту строку.