Как подключить модуль?

[Richik123]

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]

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

Вам же вроде уже говорили...

[Richik123]

да, но я что-то не смог(

[Richik123]

МОЖЕТ КТО-НИБУДЬ ПОМОЧЬ?

[badnum23]

program test;
uses
  Strings; // подключен модуль
begin
  // здесь код. можно использовать функции из модуля
end.

[Richik123]

не получается(

[badnum23]

Модуль strings сохранён или код был просто вставлен, а файл strings.pas не создан?
Покажи, как ты попытался подключить его.

[Richik123]

ФАйл есть и файл с .PCU есть.

program modul;
uses
Strings;
begin
Function First_Word (s: string): byte;
Procedure Second_Equal (s: string);
Procedure Third_Razdel (s: string);
end.

[badnum23]

Продолжай в том же духе.

[Richik123]

выводить же тоже надо?