Добрый вечер! Помогите пожалуйста с задачей, паскаль изучаю совсем недавно. Буду благодарна))

Дана матрица результатов соревнований <min Т, где Tij - количество мячей, забитых командой i команде j.
Написать процедуру которая возвращает вектор очков, набранных каждой командой за выигрыш - 3 очка, за ничью - 1, за проигрыш - 0 очков

...
For i:=1 to Nmax do
Begin
  For j:=1 to Nmax do
    If T[i,j]-T[j,i]>0 then Write('3')
    else
      If T[i,j]-T[j,i]<0 then Write('0') 
      else Write('1');
  Writeln;
end;
...