[trubo pascal] 2 procedurki lub funkcje

[cubaza47891374]

Witam. Potrzebuje 2 procedury lub funkcje(wolalbym procedury) w ktorych

 

-1 bedzie wprowadzac dane do tablicy

-2 bedzie pobierac dane z tablicy

 

prosze o szybka pomoc.pozdrawiam

[woBniaR]

procedure Wprowadz(var tablica: array of integer; element: integer; wartosc: integer);

begin

tablica[element] := wartosc;

end;

function Pobierz(var tablica: array of integer; element: integer) : integer;

begin

result := tablica[element];

end;