Подсчитать процент от общего числа введённых символов - Turbo Pascal

Формулировка задачи:

В компьютер один за другим вводятся произвольные символы. Ввод заканчивается символом "f". Подсчитать, какой процент от общего числа введённых символов составляют сим- вол "W" и символ ":" порознь. Вопрос: Как ввести символы в одну строку?

uses Crt;
Var i: integer;  {Счётчик  i для всех символов}
c1, c2: integer;  {счётчики с1, с2 для символов W и  :}
       c33, c44: Integer;  {Процент для символов W  и  :}
       simvol: Char;
Begin
ClrScr;
  i:= 0;  c1:= 0;  c2:= 0;
   WriteLn(' Ввод символов: ');
 repeat
    ReadLn(simvol);
       i:= I + 1;
       case simvol of
          'W':  c1:= c1 + 1:
            ' : ':  c2:= c2 + 1;
        end;
   until simvol = 'f';
     c33:= c1 * 100 / i;
      c44:= c2 * 100 /i;
  Writeln(' Процент  W: ' , c33:2:2);
  WriteLn(' Процент " : " ; ' , c44:2:2);
  ReadLn
end.

На выходе имеем:

Ввод символов:
A
W
G
W
K
W
:
:
T
W
f
    Процент  W:  36.36
     Процент  " : ';  18.18

Мы вводили в строку элементы одномерных массивов, причём с циклом FOR А здесь – цикл REPEAT … UNTIL, и без массива (по теме массив не требуется). Может здесь получится ввести символы в одну строку (ввод в столбик – очень расточительно).

Решение задачи: «Подсчитать процент от общего числа введённых символов»

Листинг программы

var
  c: Char;
  cw, cc, n: Integer;
begin
  while EoLn do ReadLn; Read(c);
  while c<>'f' do begin
    Inc(cw,Ord(c='W')); Inc(cc,Ord(c=':')); Inc(n);
    while EoLn do ReadLn; Read(c);
  end; WriteLn;
  if n<>0 then WriteLn('"W": ',cw*100/n:0:0,'%, ":": ',cc*100/n:0:0,'%')
  else WriteLn('Символов не введено');
end.

Объяснение кода листинга программы

В этом коде используется цикл, который считывает введённые пользователем строки до тех пор, пока не встретит символ 'f'. Для каждой строки подсчитывается количество символов 'W' и ':', а также общее количество символов. После этого вычисляется процентное соотношение для каждого из этих символов. Если в процессе ввода не было символа 'f', выводится сообщение о том, что символов не введено.