Здравствуйте! Помогите пожалуйста. Что я сделал не так?
За ранее большое спасибо!!! (20б)
uses crt;
var a,n,code:integer;
var s:string;
var ch1,chp:char;
begin
writeln('Введи число, первые и последние цифры поменяются местами');
readln(a);
str(a,s);
ch1:=s[1];
chp:=length(s);
s[1]:=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.

Переменная 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('Введи число, первые и последние цифры поменяются местами');

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.