ПОМОГИТЕ ИНФОРМАТИКА СРОЧНО!!!

Ммм бананчики чего это змея

Непонял тебе код нужен?
program FirstLastCharacterCodes;

var
inputString: string;

begin
// Введите строку
writeln('Введите строку:');
readln(inputString);

// Проверяем, что строка не пустая
if Length(inputString) > 0 then
begin
// Выводим коды первого и последнего символов
writeln('Код первого символа: ', Ord(inputString[1]));
writeln('Код последнего символа: ', Ord(inputString[Length(inputString)]));
end
else
writeln('Введена пустая строка.');
end.