Помогите пожалуйста

[TNT]

Помогите пожалуйста решить задачу.
В двумерном массиве 6x5, с помощью функции, найти среднее арифметическое в каждой строке.

[galaid]

uses crt;
var a:array[1..6,1..5] of integer;
i,j:byte;
n:real;
begin
writeln('vvedite matricu');
for i:=1 to 6 do
for j:=1 to 5 do
readln(a[i,j]);
writeln('massiv priveden');
for i:=1 to 6 do
begin
for j:=1 to 5 do
write (a[i,j],' ');
writeln;
end;
i:=1;
while i<>6 do
begin
n:=(a[i,1]+a[i,2]+a[i,3]+a[i,4]+a[i,5]);
n:=n/5;
writeln(i,' stroka =',n);
inc(i);
end;
end.

[alex_fcsm]

uses crt;
var a:array[1..6,1..5] of integer;
    i,j:byte;

function Sr(x:integer):real;
var temp:real;
    k:byte;
begin
  temp:=0;
  for k:=1 to 5 do
   temp:=temp+a[x,k];
  sr:=temp/5;
end;


begin
clrscr;
for i:=1 to 6 do
begin
 for j:=1 to 5 do
  begin
   a[i,j]:=random(4);
   write(a[i,j]:3);
  end;
 writeln;
end;
for i:=1 to 6 do
 writeln('Str ',i,' sr=',Sr(i):6:3)
end.

[TNT]

Большое спасибо за помощь!