Определить сумму абсолютных значений элементов и вывести их на экран

Program lab10;
Uses Crt;
Type
  VectType = Array[1..50] of Real;
Var
  A,B,C:VectType;
  Sum, SumAll:real;
  l,m,n,i:integer;
Procedure Vvod(Var Ar:VectType; k:Integer);
{Процедура ввода одномерного массива}
Var
  i:integer;
Begin
  for i:=1 to k do
    begin
      WriteLn('Ar[',i,']= ');
      ReadLn(Ar[i]);
    end;
End; {Proc Vvod}
 
Function AbsAr (Var Ar:VectType; k:Integer): Real;
{Функция нахождения суммы абсолютных значений}
Var
  sum, memb:real;
  i:integer;
Begin
  sum:=0;
  memb:=0;
  for i:=1 to k do
    memb:=abs(i);
    sum:=sum+memb;
    AbsAr:=sum;
End; {Func AbsAr}
 
Begin
  ClrScr;
  Write('Vvedite l: ');
  ReadLn(l); {ввод кол-ва эл-тов массива A}
  WriteLn('Vvedite massiv A');
  Vvod(A,l);{Ввод массива А}
  WriteLn('Summa absolutnix zna4eniy A = ',AbsAr(A, l):5:2);
  
  Write('Vvedite m: ');
  ReadLn(m); {ввод кол-ва эл-тов массива B}
  WriteLn('Vvedite massiv B');
  Vvod(B,m);{Ввод массива B}
  WriteLn('Summa absolutnix zna4eniy B = ',AbsAr(B, m):5:2);
  
  Write('Vvedite n: ');
  ReadLn(n); {ввод кол-ва эл-тов массива C}
  WriteLn('Vvedite massiv C');
  Vvod(C,n);{Ввод массива C}
  WriteLn('Summa absolutnix zna4eniy C = ',AbsAr(C, n):5:2);
 
  SumAll:=AbsAr(a,l)+AbsAr(B,m)+AbsAr(C,n);
  WriteLn('SumAll = ', SumAll:5:2);
  ReadLn;
End.

function AbsAr(var Ar: VectType; k: Integer): Real;
var
  s: Real;
begin
  s:=0;
  for k:=k downto 1 do s:=s+abs(Ar[k]);
  AbsAr:=s;
end;