Помогите с паскалем!

Пишу программу на паскале которая заменяет повторяющиеся пары букв в тексте на коды и наобарот, столкнулся вот с такой проблемой (на скриншоте), а вот сам исходник:
{Курсовая работа Карчев А. А Группа ИТ-22}
uses crt;

var
text:text;
str,par,par2:string;
ascis,asci,b:byte;
dlm,leng,i,j,k:integer;
{symv, povtor: set of char;}
pov:array[1..255] of string;
symb:array[1..255] of byte;
begin

{ Чтение файла с исходным текстом }
assign (text, 'text.txt');
reset(text);
while not Eof(text) do
begin
readln(text,str);
write(str);
end;
close(text);
leng := length(str) - 1; k := 1;

{ Здесь мы будем искать символы из таблицы ASCII которые не встречаются в тексте }
for i:=1 to leng do begin
asci:=ord(str[i]);
for j:=1 to 255 do begin
if asci = j then symb[k]:=j;
writeln(symb[k]);
end;
inc(k);
end;
{ Здесь мы будем искать повторяющиеся пары в исходном тексте }

for i:=1 to leng do begin
par := str[i] + str[i+1];
for j:=i+2 to leng do begin
par2 := str[j] + str[j+1];
if par = par2 then begin
{include(povtor,'d')}
pov[k]:=par2; inc(k);
end;
end;
end;
writeln;
{ Выводим массив с повторами }

end.

Помогите пожалуйста !