Cоставить программу определения степеней всех вершин графа, если граф задан списком рёбер — Pascal(Паскаль)

const
  maxn = 1000;

var
  n, m, k, l, i: longint;
  a: array [1 .. maxn] of longint;

begin
  write('Vvedite chslo vershin: ');
  readln(n);
  write('Vvedite chslo reber: ');
  readln(m);
  writeln('Vvedite ', m, 'par chisel - rebra');
  for i := 1 to n do
    a[i] := 0;
  for i := 1 to m do
  begin
    read(k, l);
    inc(a[k]);
    inc(a[l]);
  end;
  for i := 1 to n do
    writeln('Stepen ver nomer-', i, '=', a[i]);
  readln;
  readln;

end.