Составить программу, которая выводит на экран все символы, расположенные после первого символа «'»

type TChars = set of Char;
function StrSpn(const s: String; const c: TChars; var i: Integer): Boolean;
begin
  while (i<=Length(s)) and (s[i] in c) do Inc(i);
  StrSpn:=i>Length(s);
end;
function StrCSpn(const s: String; const c: TChars; var i: Integer): Boolean;
begin
  while (i<=Length(s)) and not (s[i] in c) do Inc(i);
  StrCSpn:=i>Length(s);
end;
const
  Blank = [#9,' '];
  Punct = ['!'..'/',':'..'@','['..'`','{'..'~'];
  EOSnt = ['.','!','?'];
function GetWord(const s: String; var i: Integer): String;
var j: Integer;
begin
  StrSpn(s,Blank,i); j:=i;
  StrCSpn(s,Blank+Punct,i);
  GetWord:=Copy(s,j,i-j);
end;
procedure Task1(const s: String);
var p: Integer;
begin
  p:=Pos(':',s);
  Write('1. Текст после ":": ');
  if p>0 then WriteLn('"',Copy(s,p+1,Length(s)),'"')
  else WriteLn('<нет>');
end;
procedure Task2(const s: String);
var i, j, n, w: Integer;
begin
  i:=1; n:=0;
  repeat
    w:=0;
    repeat
      if Length(GetWord(s,i))>0 then Inc(w);
      if StrSpn(s,Blank+Punct-EOSnt,i) then Break;
      if s[i] in EOSnt then begin Inc(i); Break; end;
    until False;
    if Odd(w) then Inc(n);
  until i>Length(s);
  WriteLn('2. Предложений с нечетным количеством слов: ',n);
end;
procedure Task3(s: String);
var i, j, k: Integer;
begin
  for j:=Length(s) downto 1 do
    if s[j]=',' then begin
      i:=j+1; k:=Length(GetWord(s,i)); Delete(s,i-k,k);
    end;
  WriteLn('3. Без слов после ",": ',s);
end;
var s: String;
begin
  Write('Введите предложения: '); ReadLn(s);
  Task1(s); Task2(s); Task3(s);
  Write('Нажмите Enter...'); ReadLn;
end.