Строки

Program P1;                  [COLOR="SeaGreen"]//...[/COLOR]
Uses crt;                               [COLOR="#2e8b57"]//модуль CRT[/COLOR]
Var text: string;                      [COLOR="#2e8b57"]//переменные....[/COLOR]
      a: array[1..255] of char;        
      i, j, n: byte;                    

begin
  clrscr;                                   [COLOR="#2e8b57"]//очистка[/COLOR]
  Writeln ('Введите текст: ' );        [COLOR="#2e8b57"]//.....[/COLOR]
  Read (text);                       [COLOR="#2e8b57"]//вводим текст[/COLOR]
  For i :=1 to length (text) do      [COLOR="#2e8b57"]//в красном цикле перебираем каждый символ строки, чтобы сравнить его с символом синего цикла....[/COLOR]
     [COLOR="Red"]begin[/COLOR]
        a := chr(i); n:=0;     [color="#2e8b57"]//както бредово - зачем создавать массив символов и впихивать туда по одному символу текста, один фиг таже строка будет?...далее обнуляется счетчик - сколько встречается символ в строке...[/COLOR]
       [COLOR="Blue"] for j:=1 to length (text) do if a  = text [j] then n: = n+1;[/COLOR]
         if n<>0 then writeln ( 'Символ ' , a , ' встречается в тексте ' , n,' раз' );       [COLOR="#2e8b57"] // если данный символ встречается хотя бы один раз, то написать - сколько раз он встречается в строке...[/COLOR]
     [COLOR="#ff0000"]End;[/COLOR]
  Readln;          
  Readln;
End.

uses CRT;
var stroka: string;
     rep: array [1..255] of byte;
     i,j,k,n:byte;

begin
    clrscr;
    write ('Введите строку:  ');
    readln (stroka);
    for i:=1 to 255 do rep:=0;
    for i:=1 to length (stroka) do inc (  rep[ ord(stroka) ]   );
    for i:=1 to 255 do begin
      if rep<>0 then writeln('Символ " ',chr(i),' " встречается в тексте ', rep, ' раз...');
      readln;     [COLOR="Teal"]//после каждого вывода количества повторов нужно нажать ENTER[/COLOR]
    end;
end.