Модуль

[Ilai]

Добрый день!

Помогите пожалуйста с программой. Написал её, а нужно ещё сделать модуль. Сама программа вот(без модуля, в первоначальном виде)

Program Lab_7;

var  s, s1: string;
     i, j, k:integer;

begin
    
write('Введите строку= ');
    readln(s);
    s:=s+' ';
    k:=1;
       for i:=1 to length(s) do
      begin
      if s[i]=' ' then begin
       for j:=i-1 downto k do
         s1:=s1 + s[j];
         s1:=s1 + ' ';
         k:=i;
        end;
end;
    writeln('Результат= ', s1);
 end.

Далее попытался написать модуль, но не совсем получилось.

Модуль:

unit modul;

interface

Procedure Inver;

implementation

Procedure Inver;

begin

Procedure Inver;
var  s, s1: string;
     i, j, z, k:integer;

begin

write('Введите строку= ');
    readln(s);
    s:=s+' ';
    k:=1;
       for i:=1 to length(s) do
      begin
      if s[i]=' ' then begin
       for j:=i-1 downto k do
         s1:=s1 + s[j];
         s1:=s1 + ' ';
         k:=i;
        end;
end;
end;
end.

Программа в результате:

Program Lab_7;
uses modul;

begin
    Procedure Inver(s, s1);
    writeln('Результат= ', s1);
end.

Знаю, что тут куча ошибок. Модули никогда не писал. Сейчас делал, используя информацию, которую нашел. Помогите пожалуйста

[type_Oleg]

Дело не в модуле. Там, на первый взгляд ошибок не видно.
Дело в том, что вы похоже совсем не умеете работать с процедурами.
Из модуля

Procedure Inver;
begin
Procedure Inver;  // зачем второй раз ?

Из программы

 Procedure Inver(s, s1);

- так процедуы не вызываются
И вообще, читайте про параметры ( аргументы) подпрограмм.

[Ilai]

Сообщение от type_Oleg

Дело не в модуле. Там, на первый взгляд ошибок не видно.
Дело в том, что вы похоже совсем не умеете работать с процедурами.
Из модуля

Procedure Inver;
begin
Procedure Inver;  // зачем второй раз ?

Из программы

 Procedure Inver(s, s1);

- так процедуы не вызываются
И вообще, читайте про параметры ( аргументы) подпрограмм.

Ну вот вроде написал:

Модуль:

unit modul;
interface
Procedure Inver(var s:string);
implementation
Procedure Inver(var s:string);
var s1: string;
    i, j, z, k:integer;
begin
s:=s+' ';
k:=1;
for i:=1 to length(s) do
 begin
  if s[i]=' ' then
   begin
     for j:=i-1 downto k do
     s1:=s1 + s[j];
     s1:=s1 + ' ';
     k:=i;
   end;
 end;
s:=s1;
end;
end.

Программа:

uses modul;
var  s: string;
begin
write('Введите строку= ');
readln(s);
inver(s);
writeln('Результат= ', s);
end.

Программа работает, но единственное, перед выводом ответа выводит часть директории и различные символы, не подскажите, из-за чего может такое быть?

[type_Oleg]

А что в строке s1 в самом начале ?
Добавьте

 begin
  s:=s+' ';
  s1:='';   // вот это добавьте. Пустая строка 
  k:=1;

[Ilai]

Ага, всё, понял. огромное спасибо Вам за помощь!