Ввести с клавиатуры строку символов. Признак окончания ввода строки — нажатие клавиши «Ввод». Программа должна определить длину введенной строки L и, если длина L>5, то выделяется подстрока до первого пробела — Pascal(Паскаль)

var str,substr: string;
    i, j: integer;
 
begin
substr := '';
writeln('Введите строку: ');
readln(str);
writeln('Длина строки - ',length(str));
if length(str) > 5 then
 begin
  i := Pos(' ', str);
  if i>0 then
   begin
    for j := 1 to i do
      substr := substr + str[i];
    writeln('Подстрока - ',substr)
   end
 
   else writeln('В строке нет пробела. ')
 end;
readln
end.