в тексте из 5-6 предложений посчитать количество знаков препинания с помощью процедуры.

Uses
 CRT;
Var
 s:string;
 i,kol,n,j:integer;
 
procedure znak(l:string);
begin
 for j:=1 to length(l) do
  if l[j] in [',','.','!','?',':',';'] then {ну и ещё там какие надо добавьте}
  inc(kol);
end;
 
Begin
Write('N: ');
Readln(n);
kol:=0;
for i:=1 to n do
begin
 readln(s);
  znak(s);
end;
write('Kol:=',kol);
End.

Uses
 CRT;
Var
 s:string;
 kol:integer;
 
procedure znak(l:string; var kol : integer);
var j : integer;
begin
 kol := 0;
 for j:=1 to length(l) do if l[j] in [',','.','!','?',':',';'] then {ну и ещё там какие надо добавьте}
 inc(kol);
end;
 
Begin
  write('-> ');
  readln(s);
  znak(s, kol);
  writeln('Signs: ', kol);
  readln;
End.

uses crt;
const razd:set of char=[' ','.',',',':',';','!'];
var min,max:integer;
    st,buf,n_min,n_max:string;
begin
 min:=999;
 max:=-1;
 clrscr;
 readln(st);
 
 repeat
  if (st[1] in razd) or (length(st)=0) then while st[1] in razd do delete(st,1,1)
  else
  begin
   while (not (st[1] in razd)) and (length(st)>0) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
 
   if length(buf)>max then
   begin
    max:=length(buf);
    n_max:=buf;
   end else if length(buf)<min then
   begin
    min:=length(buf);
    n_min:=buf;
   end;
  buf:='';
 
 end;
 until (length(st)=0) and (length(buf)=0);
 
 writeln('Самое короткое слово - ',n_min);
 writeln('Самое длинное слово - ',n_max);
 readln;
end.