Вопрос Почему не срабатывает программа. Delphi. Строки

[denisnik]

Программа должна менять местами второе и третье слова
procedure TForm1.Button1Click(Sender: TObject);
var
s,m,n,z:string;
begin
s:=Edit1.text;
m:=copy(s,1,pos(,s)-1);
delete(s,1,pos(,s));
n:=copy(s,1,pos(,s)-1);
delete(s,1,pos(,s));
z:=copy(s,1,pos(,s)-1);
delete(s,1,pos(,s));
s:=m++z++n;
end;

end.

 

[egor688]

А как Вы собираетесь увидеть изменения?

 

[Jonson]

патамучта достаточно 2х удалений в строке. Если вы научитесь использовать промежуточную печать, то не надо будет беспокоить чужих людей по пустякам пусть строка 1 2 3 после 1го del m="1" s="2 3" после 2го del n="2" s="3" profit