Посмотрите пожалуйста всё ли правильно?

[art_melnichenko]

ТЕМА: СТРОКОВЫЙ ТИП ДАННЫХ

ЗАДАНИЕ:
Даны натуральное число n и символы S1, …, Sn (строка). Преобразовать строку, заменив запятыми все двоеточия, встречающиеся среди
S1, …, Sn/2, и заменив точками все восклицательные знаки, встречающиеся среди Sn/2+1 …, Sn.

текст программы:

Program zad_10;
uses crt;
var
     i,k:integer;
     s:string;

Procedure vvod; 
begin
writeln ('Введите строку');
readln(s);
end;

procedure point1;
begin
k:=0;
  for i:=k to length(s) do
 if s[i]=':' then s[i]:=',';
 end;

procedure point2;
begin
k:=0;
   for i:=k to length(s) do
  if s[i]='!' then s[i]:='.';

Writeln(s);
end;

begin
  clrscr;
  Vvod;
  point1;
  point2;
  readln;
end.

Так то всё работает, но вопрос - правильно ли всё написано?
т.е работает маленько не так как требуется. Моя программа меняет все двоеточия и восклицательные знаки во всей строке. А надо чтобы в первой половине строки менялись все двоеточия запятыми, а во второй половине строки все восклицательные знаки точками.

[SERG1980]

uses crt;
var s:string;
    i,slov:integer;
    schet:boolean;
BEGIN
 ClrScr;
 WriteLn('Vvedite stroky');
 Readln(s);
 for i:=1 to length(s) do
  begin
  if i<=round(length(s)/2)then if s[i]=':'then s[i]:=',';
  if i>round(length(s)/2) then if s[i]='!' then s[i]:='.';
  end;
  writeln(s);
  Readln;
  END.

[misha.markov]

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

[masax]

#include <string>
#include <iostream>
#include <cmath>

using namespace std;

int round (double value)
{
   return (int) floor(value + 0.5);
}

void _tmain(int argc, _TCHAR* argv[])
{
	char s[256];
	cout << "Vvedite stroky" << endl;
	cin >> s;
	int mid = round(strlen(s)/2);
	for (int i=0; i < (int)strlen(s); i++)
		if (i > mid)
		{
			if (s[i] == '!')
				s[i] = '.';
		}
		else
			if (s[i] == ':')
				s[i] = ',';
	cout << s << endl;
	system("pause");
}