Delphi - lab6

program lab6;

uses crt;
var s:string;
    i,n,k,kr,dkr,tr,zo,zp:integer;
    c: array[1..6] of integer;
begin
clrscr;
WriteLn ('Vvedite striky');
ReadLn(s);
n:=length(s);
k:=0;
kr:=0;
for i:=1 to n do
 case s[i] of
 ',':k:=k+1;
 '.':kr:=kr+1;
 ':':dkr:=dkr+1;
 '-':tr:=tr+1;
 '!':zo:=zo+1;
 '?':zp:=zp+1;
 end;
  writeln('+--------+-----------+');
  writeln('| Symbol |   Count   |');
  writeln('+--------+-----------+');
  writeln('|    ,   |',k:11,'|');
  writeln('+--------+-----------+');
  writeln('|    .   |',kr:11,'|');
  writeln('+--------+-----------+');
  writeln('|    :   |',dkr:11,'|');
  writeln('+--------+-----------+');
  writeln('|    -   |',tr:11,'|');
  writeln('+--------+-----------+');
  writeln('|    !   |',zo:11,'|');
  writeln('+--------+-----------+');
  writeln('|    ?   |',zp:11,'|');
  writeln('+--------+-----------+');

ReadLn;
end.