unit YaData;
interface
PresentTP: String;
TAD, AAD: array[1..100] of Integer;
implementation
end.

これでコンパイルしようとしたら
３行目をさして
宣言が必要な場所に識別し PresentTPがありますってエラーがでたよぉ・・・・