Напишите программу, удаляющую из всех слов предложения k-ую букву

[parovoz121]

1. Дано число k и предложение. Напишите программу, удаляющую из всех слов предложения k-ую букву.
хелп плз

[Z1000000]

program DeleteKSymbol;
label 1;
var
 aStr,CurWord : String;
 i,k,Counter : Integer;
begin
aStr := 'asdf lskdfj ssjfel slefjs l lksje fslkjs';
k := 2;
writeln ( aStr );
Counter := 0;
aStr := aStr + ' ';
for i := 1 to Length(aStr) do
 begin
  if aStr[i] = ' ' then
   begin
   if CurWord <> '' then
     begin
     writeln ( CurWord );
     CurWord := '';
     Counter := 0;
     end;
   end
  else
   begin
   Counter := Counter + 1;
   if Counter <> k then
    CurWord := CurWord + aStr[i];
   end;
 end;
end.

[parovoz121]

спасибо огромное а на с++ можно

[mrChester]

Переделывал без копилятора, могут быть недочеты

int main()
{
char* aStr;
char CurWord[30];
ctrcpy(aStr,"asdf lskdfj ssjfel slefjs l lksje fslkjs");
int k = 2;
cout << aStr <<endl;
int Counter = 0;
strcat(aStr," ");
for (i = 1; i<strlen(aStr); i++)
{
  if (aStr[i] == ' ')
   {
   if (!strcmp(CurWord,"")) 
   {
     cout << CurWord ;
     strcpy(CurWord,"");
     Counter = 0;
   }
  }
  else
   {
    Counter++;
   if (Counter != k)
    strcat(CurWord, aStr[i]);
 }
 }
 return 0;
}

[parovoz121]

выдает следующие ошибки:
1>c:\documents and settings\root\мои документы\visual studio 2005\projects\stroki\stroki\stroki. cpp(17) : error C3861: 'ctrcpy': identifier not found
1>c:\documents and settings\root\мои документы\visual studio 2005\projects\stroki\stroki\stroki. cpp(22) : warning C4018: '<' : signed/unsigned mismatch
1>c:\documents and settings\root\мои документы\visual studio 2005\projects\stroki\stroki\stroki. cpp(37) : error C2664: 'strcat' : cannot convert parameter 2 from 'char' to 'const char *'

[parovoz121]

помогите исправить пожалуйста.