задание в паскале о СТРОКАХ!!!

[zzzzz]

К данному стову присоединить столько <!> сколько букв в слове??? как решть помогите срочно!!!! в паскале!

[Z1000000]

Исходными данными что является? Строка со словами?
Слова друг от друга чем отделены: только пробемами, пробелами и запятыми ?

[Stilet]

 k:=length(s);
 while k>0 do begin
  s:=s+'!';
  dec(k);
 end;

сдесь s - слово.

А чуть не забыл - слова из строки можно получить так:http://www.programmersforum.ru/showt...369#post398369

[Z1000000]

program Lab;
var
 s,dest: string;
 i,j,counter :integer;
begin
cls;
writeln ('Введите строку слов, разделенных пробелами: ');
readln (s);
s:=s+' ';
dest := '';counter := 0;
for i:=1 to length(s) do
 begin
 if s[i] <> ' ' then begin dest := dest + s[i];counter:=counter+1;end
 else
  begin
  for j:=1 to counter do dest := dest + '!';
  if i <> length(s) then dest := dest + ' ';
  counter := 0;
  end;
 end;
writeln ( dest );
readln;
end.

[Grag]

Сообщение от Z1000000

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

В задании ТС упоминается одно слово...
Ну, если иметь ввиду строку слов, а не одно слово, то, см. ниже

Const
  prpChar=['.',',',':',';','?','!','-',' ']; {символы разделители}