Как получить последнюю строку?

Question

[avenikich]

Не понимаю как получить последнюю строку в примере вывода нужно использовать такой метод:

var s:string;a,b,c,d:integer;
begin
  readln(s);
  b:=length(s);
  writeln('d=',b);
  writeln('s','[',b,']','=',s[Length(s)]);
  d:=b-1;
  writeln('d-1','=',d);
  writeln('s','[',d,']','=');
end.

Answer 1

[Hemul GM]

writeln('s[', d, ']=', s[6]);