где ошибка не могу понять (паскаль абс

program ass;
var k,m:integer;
dat :array [1..10] of integer;
begin
dat [1];
dat [2];
dat [3];
dat [4];
dat [5];
dat [6];
dat [7];
dat [8];
dat [9];
dat [1];
m:=0;
for var k:= 1 to 10 do
if dat [k] >m then
begin
m:=dat [k]
end;
writeln(m);
end.