Поставить буквы в алфавитном порядке — Pascal(Паскаль)

uses crt;

var
  dl, ch, n, i, k: integer;
  text, alf, c, sim, buk: string;
  d: array [1 .. 32] of integer;

label 1;

begin
  clrscr;
  writeln('Введите текст');
  readln(text);
  dl := length(text);
  alf := 'абвгдежзийклмнопрстуфхцчшщъыьэюя';
  clrscr;
  for k := 1 to 32 do
    d[k] := 0;
  for i := 1 to dl do
  begin
    sim := copy(text, i, 1);
    for k := 1 to 32 do
    begin
      buk := copy(alf, k, 1);
      if sim = buk then
        d[k] := d[k] + 1;
    end;
  end;
  for i := 1 to 32 do
  begin
    if d[i] <> 0 then
    begin
      gotoxy(i * 2 + 5, 15);
      writeln(alf[i]);
      gotoxy(i * 2 + 5, 18);
      writeln(d[i]);
    end
  end;
  gotoxy(5, 13);
  writeln(text);

end.