pascal užduotis

Sveiki, niekaip neišeina išspręsti šios užduoties, gal atsirastu žmoniu, kuriems išeitu šią užduotį išspręsti?

niekaip neišeina išspręsti šios užduoties, gal atsirastu žmoniu, kuriems išeitu šią užduotį išspręsti?

Tai parodik, ka bandai bent darit.

Tai parodik, ka bandai bent darit.

Pasirašiau tik tiek:

program pirkimai;
type zodis = string [20];
      tmass = array [1..31] of integer;
      Tmokiniai = record
         pin : real;
         pav : Tzodis;
            end;
     tmas = array [1..100] of Tmokiniai;
var df, rf : text;
//--------------------------Funkcijos ir proceduros-----------------------------
procedure skaito (var n : integer; var a : tmas; var d : tmass);
var i, j : integer;
begin
 assign (df, 'Duom2.txt'); reset (df);

  for := 1 to 31 do d[i] := 0;

 Readln(df, n);
 for i:=1 to n do
 begin
   a[i].pin := 0;
   Read(df, a[i].pav, ps );
   for j := 1 to ps do
     begin
      read (df, dn, psum);
      d[dn]:=1;
      a[i].pin:=a[i].pin + psum;
    end;
   readln( df );
end;
 close (df);
 end;
//------------------------------------------------------------------------------
function pajamos (n : integer; a : tmas):real;
 var i : integer;
 begin
   s := 0;
  for i:= 1 to n do
    s := s + a[i].pin;


  end;

Tai niekam neišeina šį užduotis?

labas, ką aš galiu pasakyt, nenusirašyk aklai, bet išsiaiškink kas ką daro, nes aš už tave vbe neišlaikysiu :D

program pirkimai;
const Cduom = 'Duom2.txt';
     Crez = 'Rez2.txt';
     max = 100;
type mokiniai = record
       vard_pavard : string[20];
       p_kartai : integer; //pirkimo kartai, dienos
       S : array[1..1000] of real;
     end;
var A : array[1..max] of mokiniai;
   n : integer;
   P : array[1..31] of integer; // dienos kai pirko;
//procedura failo nuskaitymui
procedure skaityti;
var fd : text;
   i, j, d : integer; //d - dienos kada pirko
begin
   assign(fd, Cduom); reset(fd);
   readln(fd, n);

   for i := 1 to n do
       begin
           read(fd, A[i].vard_pavard, A[i].p_kartai);
           for j := 1 to A[i].p_kartai do
               begin
                   read(fd, d);
                   read(fd, A[i].S[d]);
                   P[d] := 1;
               end;
           readln(fd);
       end;
   close(fd);
end;
//funkcija mokinio islaidoms skaicuoti
function m_islaidos (n : integer): real;
var i : integer;
begin
   m_islaidos := 0;
   for i := 1 to 31 do
       m_islaidos += A[n].S[i];
end;
//funkcija parduotuves pajamu skaiciavimui
function parduotuves_pajamos : real;
var i : integer;
begin
   parduotuves_pajamos := 0;
   for i := 1 to n do
       parduotuves_pajamos += m_islaidos(i);
end;
//funkcija dienu, kai nebuvo perkama, skaiciui rasti
function nepirko : integer;
var i, j : integer;
begin
   nepirko := 0;
   for i := 1 to 31 do
       if P[i] = 0
           then nepirko += 1;
end;
//procedura spausdinimui i faila
procedure spausdinti;
var fr : text;
   i : integer;
begin
   assign(fr, Crez); rewrite(fr);
   for i := 1 to n do
       writeln(fr, A[i].vard_pavard, m_islaidos(i):2:2);
   writeln(fr, parduotuves_pajamos:2:2);
   writeln(fr, nepirko);
   close(fr);
end;
begin
   skaityti;
   spausdinti;
end.