Подсчет количества символов в строке

[CraFt56]

Привет всем!
помогите мне плиз с задачей на паскале:
Составить программу, чтобы при вводе любой строки программа показала количество знаков( состоит из русск. букв) в ней, чтобы выглядело примерно так:
- я записываю в программе строку, например М О Л О К О, и при нажатии enter программа под словом показала количество повторений этого знака: т.е.:
М О Л О К О
1 3 1 3 1 3
Фсем заранее спасибо.
P.S. прошу никого не распранятся о том какой из меня "хороший" прграммист..... я и сам это знаю)))

[ruslik]

Код:

Код: Выделить всё

program Project1;
uses crt;
var
 s: string[20];
 i, k, len, j: integer;
begin
  clrscr;
  write('Stroka: ');
  readln(s);
  len:=length(s);
  for i:=1 to len do
   write(s[i]:4);
  writeln;
  for i:=1 to len do
  begin
   k:=0;
   for j:=1 to len do
    if s[i]=s[j] then
     k:=k+1;
   write(k:4);
  end;
  writeln;
  readln;
end.
 

[CraFt56]

Код:

Код: Выделить всё

program Project1;
uses crt;
var
 s: string[20];
 i, k, len, j: integer;
begin
  clrscr;
  write('Stroka: ');
  readln(s);
  len:=length(s);
  for i:=1 to len do
   write(s[i]:4);
  writeln;
  for i:=1 to len do
  begin
   k:=0;
   for j:=1 to len do
    if s[i]=s[j] then
     k:=k+1;
   write(k:4);
  end;
  writeln;
  readln;
end.
 

огромное спасибо!