Сделать из программы процедуру

pascal

Program kokokoko;

uses crt;

var

fr, frn, s1:string;

i:integer;

begin

clrscr;

writeln ('Vvedite frazu:') ;

readln (fr) ;

fr:=fr+' ';

While Pos (' ', fr) >0 do

Begin

s1:=Copy (fr, 1, Pos (' ', fr) - 1) ;

Delete (fr, 1, Pos (' ', fr)) ;

Begin

frn:='-';

for i:=length (s1) downto 1 do frn:=frn+s1[i];

write (frn) ;

End;

End;

readkey;

end.

Var fr, frn, s1:string;

procedure StrSeq (var fr, frn, s1:string) ;

var i:integer;

begin;

fr:=fr+' ';

While Pos (' ', fr) >0 do

Begin

s1:=Copy (fr, 1, Pos (' ', fr) - 1) ;

Delete (fr, 1, Pos (' ', fr)) ;

Begin

frn:='-';

for i:=length (s1) downto 1 do

frn:=frn+s1[i];

write (frn) ;

End;

End;

end;

begin

writeln ('Vvedite frazu:') ;

readln (fr) ;

StrSeq (fr, frn, s1) ;

end.