Удалено ,создал дубликат сори...

[Reddance]

Дано текст из символов. Разработать программу, которая печатает все, кроме пробелов и знаков препинания. (Желательно подпрограммами) (помогите код написать, а то никак как то)

Я не знаю как тут тему удалить , потому так сделал ...

[execom]

function ClearString(st : string) : string;
var
  Buf  : string;
    i : byte;
begin
  for i:=1 to length(st) do
  if not (st[i] in [' ',',','.',';',':','"',#39,'!','?']) then Buf:=Buf+st[i];
  ClearString:=Buf;
end;

var
  s : string;
begin
write('Vvedite stroku--> ');
readln(s);
writeln(ClearString(s));
readln;
end.