Сделать из программы процедуру pascal Program kokokoko; uses crt; var ...

Question

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

Comments

program kokokoko? class petooh! гениально

Answer 1

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.