Если первое слово строки длиннее семи символов, то логический переменной присвоить значение TRUE, если нет - FALSE

program lab6; 
const 
n=70; 
var
  s1: array[1..n] of char; 
  i: integer;
  l: boolean; 
  begin 
    writeln('Please enter here ',n,' of symbols for my string:');
    for i:=1 to n do 
      read(s1[i]); 
    writeln('My string was= ') ;
    for i:=1 to n do
      write(s1[i]);
    writeln;
    for i:= 1 to n-69 do 
      begin 
    if n-69>7  then 
      l:= true
    else
      l:= false; 
    writeln('My string is =', l); 
    end;
  end.

var  s1: array[1..70] of char;
     n,i: integer;
     l: boolean;
begin
repeat
write('Введите размер массива от 2 до 70 n='); //массив не 70 символов, а до 70
readln(n);
until n in [2..70];
writeln('Please enter here ',n,' of symbols for my string:');
for i:=1 to n do
read(s1[i]);
writeln('My string was= ') ;
for i:=1 to n do
write(s1[i]);
writeln;
i:=1;
while (i<=n)and(s1[i]<>' ') do inc(i);//пусть слова разделены пробелами
l:=i>8;//i будет=длина слова+1
write(l)
end.

  ReadLn(s1); n:=Length(s1); { но можно и без n }

var s: String[71];
begin
  ReadLn(s); s:=s+' '; WriteLn(Pos(' ',s)>8);
end.

var s: array [0..70] of Char;
begin
  ReadLn(s);

var c: Char; n: Integer;
begin
  while not EoLn and (c<>' ') do begin
    Read(c); Inc(n);
  end;
  WriteLn(n>7+1);
end.

var s:string;
     s1: array[1..70] of char;
     n,i: integer;
     l: boolean;
begin
repeat
write('Введите размер массива целое число от 2 до 70 n='); //массив не 70 символов, а до 70
readln(s);
val(s,n,i);
until(i=0)and(n in [2..70]);
.......................................

var
  s: array [1..100] of Char;
  n, i: Integer;
  l: Boolean;
begin
  Write('String: '); {n:=0;}
  while not EoLn and (n<High(s)) do begin
    Inc(n); Read(s[n]);
  end; ReadLn;
  Write('Source: '); for i:=1 to n do Write(s[i]); WriteLn;
  i:=1; while (i<=n) and (s[i]<>' ') do Inc(i);
  l:=i>7+1;
  WriteLn(l);
end.