procedure resize (var t: PInteger; size: Integer; newSize: integer);
var tmp: ^Integer;
i: integer;
begin
        // przydzielamy nowy rozmiar pamieci do tymczasowego wskaznika
    getMem (tmp, sizeof (t^) * newSize);

        // przypisujemy nowemu wskaznikowi wartosci poprzedniego
    for i:=0 to size - 1 do
        tmp [i] := t [i];

        // zwalniamy stara pamiec
    freeMem (t, sizeof (t^) * size);

        // przypisujemy nowa pamiec (nowy wskaznik) pierwszemu
    t:= tmp;
end;