что делать дальше с программой?

[Richik123]

Есть код модуля, дальше появляется файл CPU
что дальше делать

unit Strings; 

interface //здесь, в разделе интерфейс показываем компилятору, что есть такие три функции
Function First_Word (s: string): byte; //эта для поиска длины первого слова
Procedure Second_Equal (s: string); //эта для поиска слов, у которых равные первая и последняя буквы
Procedure Third_Razdel (s: string); //эта для поиска длины строки до ; (включительно) и от нее до конца строки

implementation //здесь показываем компилятору, что делают функции из раздела interface
const Razdel = ['.', ',', '?', '!', ';', ':', ' ']; //объявляем множество, в котором содержатся все разделители, т.е. символы, при которых заканчивается слово.
Var Str: String; //объявляем строку для работы

Function First_Word (s: string): byte; //объявляем функцию
var res: string; //строка с результатом - с первым словом
i: byte; //переменная, для перебора символов строки
begin
res:= ''; //присваиваем начальное значение строке-результату
For i:= 1 to length(s) do //проходим по всем буквам
if s[i] in Razdel then //смотрим, если слово закончилось, т.е. текущий символ - разделитель
break //останавливаем цикл, т.е. слово закончилось
else //иначе, если слово продолжается
res:= res + s[i]; //прибавляем символ к результату.
First_Word:= length(res); //возвращаем длину первого слова.
end;

Procedure Second_Equal (s: string); //объявляем функцию
var res: string; //строка с текущим словом
i: longint; //переменная, для перебора символов строки 
begin
res:= ''; //присваиваем начальное значение строке со словом
For i:= 1 to length(s) do //проходим по всем буквам
if s[i] in Razdel then //смотрим, если слово закончилось, т.е. текущий символ - разделитель
begin
if res[1] = res[length(res)] then //смотрим, если первая буква в слове равна последней
write (res,' '); //если равны, то выводим слово
res:= ''; //обнуляем слово
end
else //если еще слово не закончилось
res:= res + s[i]; //то добавляем к нему текущюю букву

if (res <> '') and (res[1] = res[length(res)]) then //смотрим последнее слово
write (res); //если оно подходит, то выводим.
end;

Procedure Third_Razdel (s: string); //объявляем функцию
begin
write (pos(';', s), ' ', length(s)-pos(';',s)); //выводим дистанцию от первой ; до конца
end;
begin 
end.

[p51x]

Смотреть на него, плясать, прыгать, ...

Модули не запускаются, а подключаются.

[Richik123]

да, объясните как подключить)

[whatever]

uses
  имя_модуля;

[Richik123]

в ТурбоПаскале подключится?
В АВС.NET не хочет