найти среднее арифметическое в каждой строке массиво а(1:3, 1:2) исполнить алгоритм

Я напишу на паскале;
program srednie_v_masive;   var a:array[1..3] of longint;       s,k,i,n:longint;begin   readln(n);   while not eof do      begin         for i:=1 to n do            begin               read(a[i]);               s:=s+a[i];            end;         writeln(s/n);      end;end.
n - ето количество чисел в масиве,а - ето масив значений,s - cума чисел,
и выводим среднее в масиве значение ето сума поделеная на их количесво,тобеш n