В одной строке экрана вводится последовательность символов (тип char). Ввод завершается нажатием Enter. Вывести заданную последовательность

uses crt;
var c,s:char;
    i,k:integer;
begin
clrscr;
writeln('Введите символы в строку, окончание ввода Enter');
repeat//вводим первый, не Enter
s:=readkey;
until s<>#13;
write(s);//на экран
k:=1;//1 ввели
i:=1;
repeat//вводим остальные
c:=readkey;
inc(i);
if c<>#13 then write(c)
else writeln;
if c=s then inc(k);
until c=#13;//пока не Enter
gotoXY(i+1,2);//на 2 строку в конец введенной строки
write(s,'(',k,')');
readkey
end.