Строки и символы. Возможные ошибки

var 
  s: string := 'z123';
  i: integer;
begin
  // Первый способ - обработка исключений
  try
    i := StrToInt(s);
  except
    writeln('Ошибка преобразования');
  end;
  var errcode: integer;
  // Второй способ - процедура Val
  Val(s,i,errcode);
  if errcode>0 then
    writeln('Ошибка преобразования')
  else writeln('Преобразованное число ',i);  
end.

var 
  s: string := 'ABC';
begin
  s[4] := 'z'; // Ошибка времени выполнения: индекс находится вне границ строки
end.