Something

program irasas2;
   {uses Langai,Crt;
   label 1,2,3; }
   const n= 100;
        { s1:parametrai=(1,1,40,50,blue);
        s2:parametrai=(41,1,80,50,red);  }
   type
     duom= record
        pav  : string[10];
        dat  : integer;
        kiek : integer;
     end;
   mas = array[1..n] of integer;
   type
     reik= record
        det  : string[10];
        isl  : integer;
        peln : integer;
     end;
   pas = array[1..n] of integer;

   var
       las            : array[1..n] of duom;
       gas            : array[1..n] of reik;
       das            : array[1..n] of integer;
       d              : das;
       j, k, e,s,r    : integer;
       failas, byla   : text;
       c              : mas;
       p              : pas;
  {---------------------- duomenu nuskaitymas is 1-ojo saraso --------------------------------}
  procedure sk1(var f:text;var n:integer;var M:mas);
  var j:integer;
  begin
  assign(f,'D:\WITTA\programawimas\tp\p\2 sem\Pirmas.txt');
  reset(f);
  n:=0;
   while not eof(f) do
     begin
       n:=n+1;
       with las[n] do
             readln(failas, pav, dat, kiek);
     end;
      write('Pavadin    data       kiekis');
      writeln;
       for j:= 1 to n do
         begin
          with las[j] do
           writeln (pav, dat:10, kiek:10);
         end;

     close(f);
  end;
{---------------------- duomenu nuskaitymas is 2-ojo saraso --------------------------------}
  procedure sk2(var f:text;var n:integer;var M:pas);
  var j:integer;
  begin
  assign(f,'D:\WITTA\programawimas\tp\p\2 sem\Antras.txt');
  reset(f);
  n:=0;
   while not eof(f) do
     begin
       n:=n+1;
       with gas[n] do
             readln(byla, det, isl, peln);
     end;
      write('Pavadin    isl       peln');
      writeln;
       for j:= 1 to n do
         begin
          with gas[j] do
           writeln (det, isl:10, peln:10);
         end;

     close(f);
  end;
{---------------------- kainos skaiciavimas --------------------------------}
procedure kaina (e:integer; var d:das);
var r: integer;
begin
  r:=0;
       for r:=1 to e do
       begin
       with gas[r]  do
       d[r]:=(gas[r].isl * gas[r].peln) div 100 + gas[r].isl;
       writeln ('kaina: ',d[r]);
       end;
end;
{---------------------- duomenu masyvo spausdinimas -------------------------}
 procedure rodyk(k:integer; d: das);
 var
  j:integer;
 begin
   writeln('pavadin       kaina   kiek');writeln;
   for j:=1 to k do            
     begin
       with las[j] do
         writeln (pav, d, kiek);
     end;
 end;

begin
sk1(failas, k, c);
sk2(byla, e, p);
kaina(e,d);
rodyk(k,d);
readln;
end.
nebaiktas :|