Здрасти! Помогите пожалуйста. Что я сделал не так?За ранее большое спасибо!!!

Переменная chp обязана быть типа  integer. И необходимо поправить строчку s[1]:=chp; на строчку s[1]:=s[chp];

uses crt;

var a,n,code,chp:integer;

var s:string;

var ch1:char;

begin  

writeln('Введи число, 1-ые и заключительные числа поменяются местами');

readln(a);

str(a,s);

ch1:=s[1];

chp:=length(s);

s[1]:=s[chp];

s[chp]:=ch1;

val(s,n,code);

writeln('Из числа ',a,' вышло число ',n);

end.

var a, n, code: integer;

var s: string;

var ch1: char;

begin

 writeln('Введи число, первые и последние числа обменяются местами');

 readln(a);

 str(a, s);

 ch1 := s[1];

 s[1] := s[length(s)];

 s[Length(s)] := ch1;

 val(s, n, code);

 writeln('Из числа ', a, ' получилось число ', n);

end.