type Train = record
str:string;
number:integer;
end;

var
p:array [1..3] of ^Train;
tmp:^Train;

begin
p[1] := tmp; // Error:E2008 Incompatible types
end.