дана строка символов. удалить из нее первый знак препинания. Язык 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.