Что я сделал не так? за ранее большое ! (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.