Модули

[Andrey 1977]

Нужно изменить программу и сделать её с помощью модулей.

uses crt;
type proc=procedure(var s:string);

procedure  sort(var s:string);  {процедура сортировки}
var i,j:byte;
    c:char;
begin
for i:=1 to length(s) do  {строка}
for j:=i+1 to length(s) do
if s[i]>s[j] then
 begin
  c:=s[i];
  s[i]:=s[j];
  s[j]:=c
 end;
writeln(s)
end;
procedure  perev(var s:string); {процедура переворачивает строку}
var i:byte;
    c:char;
begin
for i:=1 to length(s) div 2 do
 begin
  c:=s[i];
  s[i]:=s[length(s)-i+1];{считает в обратную сторону}
  s[length(s)-i+1]:=c
 end;
writeln(s)
end;

procedure obr(p:proc;s:string);
begin
p(s)
end;
var s,s1:string;
begin
clrscr;
writeln('Введите строку');
readln(s);
s1:=s;
writeln('Отсортированная строка');
obr(sort,s);
writeln('Перевернутая строка');
obr(perev,s1);
readln
end.

[Stilet]

Модуль

unit modu;
type proc=procedure(var s:string);

interface
procedure  sort(var s:string);  {процедура сортировки}
procedure  perev(var s:string); {процедура переворачивает строку}
procedure obr(p:proc;s:string);

implementation
procedure  sort(var s:string);  {процедура сортировки}
var i,j:byte;
    c:char;
begin
for i:=1 to length(s) do  {строка}
for j:=i+1 to length(s) do
if s[i]>s[j] then
 begin
  c:=s[i];
  s[i]:=s[j];
  s[j]:=c
 end;
writeln(s)
end;

procedure  perev(var s:string); {процедура переворачивает строку}
var i:byte;
    c:char;
begin
for i:=1 to length(s) div 2 do
 begin
  c:=s[i];
  s[i]:=s[length(s)-i+1];{считает в обратную сторону}
  s[length(s)-i+1]:=c
 end;
writeln(s)
end;

procedure obr(p:proc;s:string);
begin
p(s)
end;

Прога

uses crt,modu;
var s,s1:string;
begin
clrscr;
writeln('Введите строку');
readln(s);
s1:=s;
writeln('Отсортированная строка');
obr(sort,s);
writeln('Перевернутая строка');
obr(perev,s1);
readln
end.

Вот так-то как-то...

[Andrey 1977]

Не подскажите как запустить программу с помощью модулей?

[Stilet]

Так же как и обычную - запускать главный код.