Составьте программу, которая удаляет из строки s запятую и выводит полученную строчку на экран. Строчка s, состоящая из двух слов, разделенных запятой и пробелом, вводится с клавиатуры.

 

Помогите, пожалуйста.

var

s:string;

begin

 s:=Edit1.Text;

for s:=1 to length(s) do

begin

if s[i]=',' then delete(s,i,1);

ShowMessage(s);

end;

end;