Вывести на экран все знаки пунктуации.

[vampir3001]

Пользователь вводит с клавиатуры строку – предложение с пробелами и знаками пунктуации длиной до 100 символов. Вывести на экран все знаки пунктуации.

[ViktorR]

Думаю, что можно так:
Обрабатываем строку посимвольно с преобразованием в верхний регистр.
Если символ не принадлежит символам [0 .. 9] и [A .. Z], то это знак пунктуации.

Так думаю, ...

[vampir3001]

ну и как это будет выглядеть?

[denisbrain]

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

ну и как это будет выглядеть?

type
Tstroc=record
   name:string;
   Value:char;
end;
var
ch:array of Tstroc;
chCount:integer;

Function AddCh(Name:string;Value:Char):integer;
begin
 chCount:=chCount+1;
 setlength(ch,chCount);
 ch[chCount-1].name:=name;
 ch[chCount-1].value:=value;
end;
Procedure Init;
begin
AddCh('апостроф','’');
AddCh('скобки','[');
AddCh('скобки',']');
AddCh('скобки','(');
AddCh('скобки',')');
AddCh('скобки','{');
AddCh('скобки','}');
AddCh('двоеточие',':');
AddCh('запятая',',');
AddCh('тире','–');
AddCh('тире','—');
AddCh('многоточие','…');
AddCh('восклицательный знак','!');
AddCh('точка','.');
AddCh('дефис','-');
AddCh('кавычки','‘');

AddCh('кавычки','’');
AddCh('кавычки','“');
AddCh('кавычки','”');
AddCh('кавычки','«');
AddCh('кавычки','»');
AddCh('кавычки',#39);
AddCh('точка с запятой',';');
AddCh('косая черта','/');
AddCh('косая черта 	','/');
//Словоразделители
AddCh('пробел',#32);
AddCh('интерпункт','·');
//Основная типографика

AddCh('амперсанд','&');
AddCh('коммерческое at','@');
AddCh('звёздочка','*');
AddCh('обратная косая черта','\');
AddCh('маркер списка','•');
AddCh('циркумфлекс','^');
AddCh('знак охраны авторского права','©');
AddCh('знак валюты','¤');
AddCh('крестик','†');
AddCh('крестик','‡');
AddCh('градус','°');
AddCh('октоторп/решётка/хеш','#');
AddCh('знак номера','№');
AddCh('процент','%');
AddCh('процент','‰');
AddCh('абзац','¶');
AddCh('знак правовой охраны товарного знака','®');
AddCh('знак параграфа','§');
AddCh('тильда','~');
AddCh('символ товарного знака','™');
AddCh('подчёркивание','_');
AddCh('вертикальная черта','|');
AddCh('вертикальная черта','¦');
end;

Function GetListFromCH:string;
var x:integer;
    s2:string;
begin
  s2:='';
  for x:=0 to chCount-1 do begin
    s2:=s2+ch[x].name+'="'+ch[x].Value+'"'+#13+#10;
  end;
  result:=s2;
end;


Function GetMassivText:string;
var x:integer;
    s2:string;
begin
  s2:='';
  for x:=0 to chCount-1 do begin
  if s2='' then
    s2:=s2+'#'+inttostr(Ord(ch[x].value))
    else s2:=s2+',#'+inttostr(Ord(ch[x].value))
  end;
  result:=s2;
end;

#146,#91,#93,#40,#41,#123,#125,#58,#44,
#150,#151,#133,#33,#46,#45,#145,#146,#147,
#148,#171,#187,#39,#59,#47,#47,#32,#183,
#38,#64,#42,#92,#149,#94,#169,#164,#134,
#135,#176,#35,#185,#37,#137,#182,#174,
#167,#126,#153,#95,#124,#166

http://ru.wikipedia.org/wiki/%C7%ED%...ED%E0%ED%E8%FF