Дана строка символов. удалить из нее первый знак препинания. язык pascal.

Const a:array[1..4] of string=('!','?','.',',');
var s:string;
i,j,k:integer;
begin
readln(s);
for i:=1 to length(s) do begin
  for j:=1 to 4 do
  if s[i]=a[j] then k+=1;
  if k<>0 then break;
end;
delete(s,i,1);
writeln(s);
end.