Создать модуль, для работы с рядом символов

unit unit1;
interface
procedure Povtor(s:string;var c:char;var mx:byte);
implementation
procedure Povtor;
var i,n,k:byte;
begin
mx:=0;
i:=1;
while i<=length(s)do
if s[i]=s[i+1] then
 begin
  n:=i;k:=0;
  while (s[n]=s[n+1])and(n<=length(s)-1) do
   begin
    n:=n+1;
    k:=k+1;
   end;
  if k>mx then
    begin
     mx:=k;
     c:=s[i];
    end;
  i:=i+k+1;
 end
else i:=i+1;
writeln('Самая длинная цепочка из символа ',c,' = ',mx);
readln
end;
end.

uses crt,unit1;
var s:string;
    k:byte;
    c:char;
begin
clrscr;
write('Строка:  ');
readln(s);
Povtor(s,c,k);
end.

writeln('Самая длинная цепочка в строке ',s,' из символа ',c,' = ',mx);

unit MyLabUN;
Interface
const LenStrMod=255;
 
type STRMod= string [LenStrMod];
 
var Change: integer;
    Character: char;
 
procedure SimbolCount
          (InpStr: STRMod; var OutStr: STRMod);
 
implementation
procedure SimbolCount
          (InpStr: STRMod; var OutStr: STRMod);
          var i, k, n: integer;
 
begin
 Change:=0;
 i:=1;
  while i<=Length(InpStr) do
   if InpStr[i]=InpStr[i+1] then
    begin
     n:=i; k:=0;
      while (InpStr[n]=InpStr[n+1]) and (n<=Length(InpStr)-1) do
       begin
        n:=n+1;
        k:=k+1;
       end;
      if k>Change then
       begin
        Change:=k;
        Character:=InpStr[i];
       end;
      i:=k+i;
     end
   else i:=i+1;
 
   OutStr:=InpStr;
   end;
   begin
 
 end.

program MyLab;
uses MyLabUN;
 
var
 InputString: STRMod;
 OutputString: STRMod;
begin
  writeln(' Vvedi rjad dlja analiza:');
  readln(InputString);
 
   SimbolCount( InputString, OutputString);
   writeln(' ');
   writeln(' Obrabotannij rjad:');
   writeln(OutputString,' rezultat: ', Character,' ', Change, ' raz');
   writeln(' ');
   writeln( ' Nazhmi ENTER');
   readln;
 
 end.