function wczytaj( nazwa_pliku:String; var tab: TypTablica): integer;
var
  plik:text;
  validation:string;
  wynik:integer;
  i:integer;

  pomoc_dla_value:integer;
begin



  assign(plik, 'test.txt');
  reset(plik); // otwarcia już istniejącego pliku w trybie do odczytu

  readln(plik, validation);
  if (validation = 'DataVersion_100') then
     begin
          readln(plik, validation);
          wynik:=StrToInt(validation);
          write(wynik);

          i:=0;
          while  eof(plik) <> true  do
          begin

            readln(plik, validation);
                         tab[i].name:=validation;

            readln(plik, validation);
                         pomoc_dla_value:=StrToInt(validation);
                         tab[i].value:=pomoc_dla_value;
          i:= i + 1;
          end;
          wczytaj := wynik; // zwrot ilosc pelnych danych do pobrania name/value
     end
  else
      wczytaj:= -1;

  close(plik); // zawsze musimy zamknac prace z  otwartym plikiem
end;

procedure zapisz( nazwa_pliku:String; const tab: TypTablica; rozmiar: integer);
var
  plik:text;
  i:integer;


begin
assign(plik, 'abc.txt');
rewrite(plik);

   for i:=0 to rozmiar-1 do
    begin

         writeln(plik, tab[i].name);
         writeln(plik, tab[i].value);

    end;



close(plik);

end;

//Napisz funkcje sumującą wartosci (value) wszystkich rekordow o zadanej nazwie
function suma( tab:TypTablica; rozmiar:integer; nazwa:String): integer;
var
  i,licznik:integer;

 begin
   licznik:=0;
   for i:=0 to rozmiar-1 do
    begin

         if (tab[i].name=nazwa) then
            licznik:=licznik+tab[i].value;

    end;
    suma:=licznik;
 end;