Вводится три слова. Программа должна поменять местами второе и третье. В моей программе почему-то третье слово переходит в начало, с другими словами вообще ничего не происходит...
procedure cd(var y,s1:string);
begin
y:=copy(s1,1,pos(,s1));
delete(s1,1,pos(,s1));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s,m,n,z:string;
begin
s:=Edit1.text;
cd(m,s);
cd(n,s);
cd(z,s);
edit1.text:=s;
end;
end.
procedure cd(var y,s1:string);
begin
y:=copy(s1,1,pos(,s1));
delete(s1,1,pos(,s1));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s,m,n,z:string;
begin
s:=Edit1.text;
cd(m,s);
cd(n,s);
cd(z,s);
edit1.text:=s;
end;
end.