дано четырехзначное числою определить сумму первой и последней цифры и 2 и 3 Пожалуйста посчитайте написать программу по паскалю

uses crt;
var s: String;
i1, i2, err: Integer;
r: Integer;
begin
readln(s);
clrscr;
val(s[1], i1, err);
val(s[Length(s)], i2, err);
r := i1 + i2;
writeln(r);
end.