Pascal: последовательность

const
  n = 10; {количество чисел в массиве}
var
  ms: array [1..n] of integer;
  i,sum,max: integer;
  NoRezult: boolean;
begin
  randomize;
  sum:= 0; NoRezult:= true;
  max:= ms[1];
  for i:=1 to n do
   begin
     ms:= random(20) - 5;
     write(ms:5);
     if ms<0 then
      begin
        sum:= sum + ms;
        NoRezult:= false;
      end;
     if ms>max then max:= ms;
   end;
  writeln;
  if NoRezult then writeln('There is no numbers < 0!')
   else writeln('Sum is ', sum);
  writeln('Max element is ', max);
  readln;
end.