лабораторная работа / 3-2 [1] Кол-во букв в строке / строка

program Project2;

Label 1;

var

str: string;

i,j,s,col: byte;

elem: char;

begin

WriteLn ('Vvedite stroku');

ReadLn (str);

col:=0;

for i:=1 to length(str) do

begin

elem:= str[i];

for s:= i-1 downto 1 do

if elem = str[s] then goto 1;

col:=0;

for j:=1 to length(str) do

if elem = str[j] then col:= col+1;

WriteLn (elem, ' ' , col);

1:

end;

ReadLn;

end.