строки

const
  msogl = ['Б', 'В', 'Г', 'Д', 'Ж', 'З', 'Й', 'К', 'Л', 'М', 'Н', 'П', 'Р', 'С', 'Т', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'б', 'в', 'г', 'д', 'ж', 'з', 'й', 'к', 'л', 'м', 'н', 'п', 'р', 'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ'];
  mgl = ['А', 'Е', 'Ё', 'И', 'О', 'У', 'Ы', 'Э', 'Ю', 'Я', 'а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];
  mprep = [',', '.', '?', ';', ':', '!', '-', '(', ')', '"', '', '`'];
 
var
  str: string;
  i: integer;
  int_gl, int_sogl, int_prep, int_prob: integer;
 
begin
  int_gl := 0;
  int_sogl := 0;
  int_prep := 0;
  int_prob := 0;
  
  write('Введите текст :');
  readln(str);
 for i := 1 to length(str) do
    if str[i] in mgl then inc(int_gl)
    else if str[i] in msogl then inc(int_sogl)
    else if str[i] = ' ' then inc(int_prob)
    else if str[i] in mprep then
      inc(int_prep);
 
  writeln('Согласных :', int_sogl / (length(str) / 100), ' %');
  writeln('Гласных :', int_gl / (length(str) / 100), ' %');
  writeln('Знаков препинания :', int_prep / (length(str) / 100), ' %');
  writeln('Пробелов :', int_prob / (length(str) / 100), ' %');
end.