jocko

program dz4;
type
  zap1 = record
   racuni:array[1..100] of string;
    ime,prezime: string[20];
    stanje: real;
  end;
var
  ulaz, izlaz: text;
  ime1, ime2: string;
  i,k,x:integer;
  a:set of 1..255;
procedure ime_dat (ulime, izlime: string; var uldat, izldat: text);
begin
  assign(uldat, ulime);
  reset(uldat) ;
  assign(izldat, izlime);
  rewrite(izldat) ;
end;
procedure zadatak(var uldat, izldat: text);
var  korisnik,temp:zap1;
     c:char;
     i,j:integer;
     k:integer;
  prvi: boolean;
begin
  prvi:=true;
  i:=0;
  k:=1;
  while not eof(uldat) do
  begin
    if k in a then
    while not eoln(uldat) do
    begin
      read(uldat, c);
      korisnik.racuni[1]:='';
      while (c<>' ') do
      begin
           korisnik.racuni[1]:=korisnik.racuni[1]+c ;
           read(uldat, c)
      end;
      korisnik.ime:='';
      read(uldat, c);
      while (c<>' ') do
      begin
            korisnik.ime:=korisnik.ime+c;
            read(uldat, c)
      end;
      korisnik.prezime:='';
      read(uldat,c);
      while (c<>' ') do
      begin
            korisnik.prezime:=korisnik.prezime+c;
            read(uldat, c)
      end;
      read(uldat, korisnik.stanje);

      if prvi then begin
      temp:=korisnik;
      prvi:=false;
      end;
      if (temp.ime=korisnik.ime)and(temp.prezime=korisnik.prezime) then
      begin
       i:=i+1;
       temp.racuni[i]:=korisnik.racuni[1];
       temp.stanje:=temp.stanje+korisnik.stanje;
      end
         else
         begin
              write(izldat,temp.ime,' ',temp.prezime);
              for j:=1 to i do
              write(izldat,' ',copy(temp.racuni[j],1,length(temp.racuni[j])-3),'***');
              writeln(izldat,' ',temp.stanje:3:2);
              temp:=korisnik;
              i:=1;

         end;
    end;
    k:=k+1;
    readln(uldat);
  end ;
  write(izldat,temp.ime,' ',temp.prezime);
              for j:=1 to i do
              write(izldat,' ',copy(temp.racuni[j],1,length(temp.racuni[j])-3),'***');
              writeln(izldat,' ',temp.stanje:3:2);
  close(uldat);
  close(izldat)
  end;
begin
  write('Unesite ime ulazne datoteke: ');
  readln(ime1);
  write('Unesite ime izlazne datoteke: ');
  readln(ime2);
  write('Unesite koliko linija zelite da promenite: ');
  readln(k);
  write('Unesite linije za promenu: ');
  a:=[];
  for i:=1 to k do
  begin
    readln(x);
    a:=a+[x];
  end;
  while (ime1<>'') and (ime2<>'')do
        begin
           ime_dat (ime1, ime2, ulaz, izlaz);
           zadatak(ulaz, izlaz)  ;
           write('Unesite ime nove ulazne datoteke: ');
           readln(ime1);
           write('Unesite ime nove izlazne datoteke: ');
           readln(ime2);
            write('Unesite koliko linija zelite da promenite: ');
            readln(k);
            write('Unesite linije za promenu: ');
            a:=[];
            for i:=1 to k do
            begin
              readln(x);
              a:=a+[x];
                  end;
        end;
end.