составить прогу, заменить все пробелы на запятые

[tim777777]

помогиитеее!!! пжалуста!

[FANATID]

var
 str, str1: string;
 i: byte;
begin
readln(str);
str1 := '';
for i := 1 to length(str) do
 if ord(str[i]) = 32 then
  str1 := str1 + chr(44)
 else
  str1 := str1 + str[i];
writeln(str1);
readln;
end.

[Doublefaced]

Не подскажете как поменять Русские заглавные на строчные и обратно.
Как с англ. знаю, а вот с русскими.

[tim777777]

пасиба!!!!!!!!!!!!!!!!!!!!!!!!!!

[FANATID]

var
 str, str1: string;
 i: byte;
begin
readln(str);
str1 := '';
for i := 1 to length(str) do
 if ord(str[i]) >= 192
  if ord(str[i]) <= 223 then
   str1 := chr(ord(str[i]) + 32)
  else
   str1 := chr(ord(str[i]) - 32);
writeln(str1);
readln;

вроде правильно написал...

[puporev]

readln(str);
str1 := '';
for i := 1 to length(str) do
if ord(str[i]) = 32 then
str1 := str1 + chr(44)
else
str1 := str1 + str[i];
writeln(str1);
readln;

Зачем усложнять жизнь, она и так сложная, а использование дополнительных масивов(строк) всегда минус программе. Нужно проще.

readln(str);
for i := 1 to length(str) do
 if str[i] =' ' then
 str[i]:= ',';
writeln(str);
readln;

[puporev]

Не подскажете как поменять Русские заглавные на строчные и обратно.

Прописные в строчные.

if s[i] in ['А'..'П'] then s[i]:=chr(ord(s[i]+32));
if s[i] in ['Р'..'Я'] then s[i]:=chr(ord(s[i]+80));
if s[i]='Ё' then s[i]:='ё';

Наоборот естественно минус 32 и 80. Таблицу ASCII найдите и пользуйтесь.

[FANATID]

readln(str);
for i := 1 to length(str) do
if str[i] =' ' then
str[i]:= ',';
writeln(str);
readln;

делал так когда то.... патом долго думал почему не получается. оказалось что у паскаля проблемы с записью символа в строку как элемента массива.
256 байт не так уж и много из выделяемой памяти)