Задача замены времени в тексте Опции

[ONE]

Вообщем дали мне простенькую задачу. Есть программа передач и там нужно поставить вместо московского времени местное.(+2 часа)... Каким образом допустим из 04.00, 06.00 можно получить 06.00, 08.00 ???
Заранее спасибо..

[APAL]

Вот что смог сделать:

Код

Var St :string;

Function TimeZone(S : String; k : Integer) : String;
Var
 i : Byte;
 cod1,cod2,l :Integer;
 s0,s1 : String;
Begin
 s0:='';
 For i:=1 to Length(s) do
   If (s[i]='.') and ((i>2) and (i<Length(s)-1)) then
   Begin
     Val(Copy(S,i+1,2),l,cod2);
     Val(Copy(S,i-2,2),l,cod1);
     If (cod1=0) and (cod2=0) then
     Begin
       Delete(s0,Length(s0)-1,2);
       Str(l+k,s1);
       s0:=s0_в(s,i,3);
       i:=i+2;
     End
       else s0:=s0+s[i];
   End
     else s0:=s0+s[i];
 TimeZone:=s0;
End;

Begin
 Writeln(TimeZone('06.00, 10.00, 12.00 Новости.',2));
 Writeln(TimeZone('06.10 Сериал <Все путешествия команды Кусто>. <Последний оплот>.',2));
End.