Сделать из программы процедуру
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.