Можете помочь найти ошибку

Program one;
Var
m:array [1..10] of integer;
i,m, k:
m:=[i];m:=[k];
for i:=1 to 10 do Begin
Readln(m[i]);
end;
max:=m[1];
for i:= 1 to 10 do
Begin
if m[i]>max(m[i]) then
end;
min:=m[1];
for i:= 1 to 10 do Begin
if m[k]<min(m[k]) then
end;
Writeln(m[i]+m[k])
end.