Помогите перевести с С++ в Delphi

Если кому не трудно переведите в Delphi...

Код:

{

string s,s1,s2;

int i,l,p;

cout<<"vvedite stroku"<<endl;

getline(cin,s,'\n');

s1="Riga";

s2="Daugavpils";

s.lenth();

p=0;

for (i=0;i<=l;i++)

{

p=s.find(s1,0);

if(p!=string::npos)

s.replace(p,s1.length,s2);

}

cout<<s<<endl;

}

SynonymMixer добавил 23.11.2008 в 01:53

Up ;+_)) :()#$