If length(S)=SizeOf(S)-1 then 
  write('Строка заполнена полностью.');
  
If length(S) <> order (S[0])  then write ('Так быть не должно !!!')