Обработка строк (Pascal)

[bio0]

Дана строка символов, которая содержит буквы. Необходимо написать
прогу "сжатия" исходной стpоки - где каждая подстpока, состоящая
из нескольких вхождений одного и того же символа, заменяется на текст a(b),
где "a" символ, а "b" число вхождений символа.
Например, дана строка: ‘Я хочу программировать’
Результат: ‘Я хочу програм(2)ировать’

[newerow1989]

var i,k:integer;
    s,s1:string;
    c:char;
begin
   s:='Ja hochu programmirovat  ee';
   s:=s+#0;
   s1:='';
   c:=s[1];
   k:=1;
   For i:=2 to Length(s) do
   begin
      If c=s[i] then
         k:=k+1 else
      begin
         s1:=s1+c;
         If k>1 then
            s1:=s1+'('+IntToStr(k)+')';
         k:=1;
         c:=s[i];
      end;
   end;
   Writeln(s1);
   Readln;
end.

Сойдет?

[bio0]

Сообщение от newerow1989

Сойдет?

Error 3: Unknow identifier?

[newerow1989]

На какую строчку ругается?
У меня все работает!

[ProBeginner]

function IntToStr(const N:integer):string;
var s:string;
begin
  Str(N,s);
  IntToStr:=s;
end;

В Turbo Pascal нет IntToStr.

[newerow1989]

А если в самом начале кода написать:

uses Crt;

[bio0]

Сообщение от newerow1989

А если в самом начале кода написать:

uses Crt;

Да, ругается на IntToStr
Crt не помогает.

[ProBeginner]

Crt - Cathode Ray Tube (вероятно, не уверен) но это модуль для работы с консолью на уровне консоли (сорри за туфталогию).
В общем - управление терминалом на уровне доступа к атрибутам экрана и чтение нажатий кнопок.
Преобразования типов там нет и быть не может.

IntToStr может быть из Delphi или ABC, сам не знаю.

[ProBeginner]

Сообщение от bio0

Да, ругается на IntToStr

-я нарисовал вам эту функцию, вставьте в начало программы.

[bio0]

Сообщение от ProBeginner

-я нарисовал вам эту функцию, вставьте в начало программы.

Я видел, спасибо, с функцией работает. А можно как-нибудь без InToStr обойтись?