Дан двухмерный массив. Определить сумму отрицательных элементов пятой строки массива

uses crt;
const
   n=8;
   m=6;
var
   a:array[1..n,1..m] of integer;
   i,j,sum,code:integer;
begin
writeln('--------ÌÅÍÞ:--------');
writeln('1. Çàïîëíèòü ìàòðèöó');
writeln('2. Ïîñ÷èòàòü sum îòðèö. ÷èñåë óêàç. ñòðîêè');
writeln('3. Âûõîä');
repeat
write('Ââîä..: '); readln(code);
case code of
1: for i:=1 to n do
      begin
      for j:=1 to m do
         begin
         a[i,j]:=random(10)-5;
         write(a[i,j]:3);
         end;
      writeln;
      end;
2: begin
   sum:=0;
   write('Ââåäèòå ¹ ñòðîêè: '); readln(i);
   if (i<=n) and (i>0) then
      begin
      for j:=1 to m do
         begin
         if a[i,j]<0 then
         inc(sum,a[i,j]);
         end;
         writeln ('sum îòðèöàòåëüíûõ ',i,' ñòðîêè=',sum);
      end else
   writeln('Òàêîé ñòðîêè íåò!');
   end;
3: exit;
end;
until code=3;
end.