памагите решить задачку


гильдия Мудрецы (Грандмастер)[43714] гильдия Королевские Лабоходы (Мастер)[6754] LedForT Информация
Назад к темам раздела.
2009-02-25 19:13:28 гильдия Мудрецы (Грандмастер)[43714] гильдия Королевские Лабоходы (Мастер)[6754] LedForT Информация
Задание: Составить программу, в которой все пробелы в тексте будут заменяться на запятые.
я в общем пытался, но там что-то не то:
program pr1;
var A:string;
i:char;
begin
writeln('vvedite text:');
readln(A);
i:=A[1]:
for i:=1 to length(A);
if i:=' ' then
i:=',';
writeln(A);
end.