Bвести предложение, состоящее из четного количества букв. bывести на экран его первую половину. (программа pascal) и ещё блок-схема(не обязательно, но желательно)

Var
  s: string;
 
begin
  readln(s);
  for var i := 1 to length(s) div 2 do
    write(s[i]);
end.