const
t=6;
k=4;
max=1000;
type
 Tcold= array[0..47] of double;
 ptrTcold=^Tcold;
 var
i,l:integer;
ergebnis: ptrTcold;
x: ptrTcold;
lagerkosten: array [0..max] of double;
begin
        i:=0;
        l:=0;
        while i<k*t do begin
          while l<k do begin
          ergebnis[i]:=x[i]*lagerkosten[l];
          i:=i+1;
          l:=l+1;
          end;
        l:=0;
        end;
end;