Introducir datos en un vector

*Introducir datos en un vector

program vectores_1;
uses wincrt;
const
max=10;
type
dias=array[1..max]of string;
var
a:dias;
i,s:integer;
j:string;

begin

for i:=1 to max do
begin
readln(a[i]);
j:=(j+a[i]);
end;
j:=(j+a[i]);

end.