program databaza;  {textovy zaznam do datoveho}
uses crt;
type Tzam=record
          meno:string[15];
          priezv:string[20];
          mzda:word;
          end;
var subz:file of Tzam;
    zam:Tzam;
    m:array[1..2] of byte;
    zdroj:text;
    i,n,k,j,ch:byte;
    s,mzdaS:string;

begin
clrscr;
i:=0;
assign(zdroj,'proc.txt');
reset(zdroj);
assign(subz,'ZaznamSUBZ.dat');
rewrite(subz);
while NOT(EOF(zdroj)) do begin
                         k:=0;
                         readln(zdroj,s);
                         n:=length(s);
                         for j:=1 to n do if s[j]=' ' then begin
                                                           inc(k);
                                                           m[k]:=j;
                                                           end;
                         zam.meno:=COPY(s,1,m[1]-1);
                         zam.priezv:=COPY(s,m[1]+1,m[2]-m[1]-1);
                         mzdaS:=COPY(s,m[2]+1,n-M[2]);
                         VAL(mzdaS,zam.mzda,ch);
                         write(subz,zam);
                         end;
close(subz);
reset(subz);
while NOT(EOF(subz)) do begin
                        read(subz,zam);
                        with zam do writeln(meno:16,priezv:21,mzda:6);
                        end;

close(zdroj);
close(subz);
readln;
end.
______________________________________________________________________________________________________________________________

program dopisovaniedoDB;
uses crt;
type Tzam=record
          meno:string[15];
          priezv:string[20];
          mzda:word;
          end;
var subz:file of Tzam;
    zam:Tzam;
    i:byte;

begin
clrscr;
assign(subz,'ZaznamSUBZ.dat');
reset(subz);
seek(subz,filesize(subz));

{write('Zadaj MENO: ');
readln(zam.meno);
write('Zadaj PRIEZVISKO: ');
readln(zam.priezv);
write('Zadaj MZDU: ');
readln(zam.mzda);
write(subz,zam);}

seek(subz,0);
while NOT(EOF(subz)) do begin
                        inc(i);
                        read(subz,zam);
                        with zam do writeln(i:2,'. ',meno:16,priezv:21,mzda:6);
                        end;

close(subz);
readln;
end.
_______________________________________________________________________________________________________________________________
program opravovanieZaznamu;
uses crt;
type Tzam=record
          meno:string[15];
          priezv:string[20];
          mzda:word;
          end;
var subz:file of Tzam;
    zam:Tzam;
    i:byte;
    n,cz:longint;
    s:string;

begin
clrscr;
assign(subz,'ZaznamSUBZ.dat');
reset(subz);
while NOT(EOF(subz)) do begin
                        inc(i);
                        read(subz,zam);
                        with zam do writeln(i:2,'. ',meno:16,priezv:21,mzda:6);
                        end;
n:=filesize(subz);
repeat
write('Zadaj, kt. zaznam chces opravit [od 1 do ',n,', alebo 0 pre nic]: ');
readln(cz);
until (cz>=0)AND(cz<=n);
if cz<>0 then begin
              seek(subz,cz-1);
              read(subz,zam);
              with zam do writeln('Chystas sa opravit: ',meno:16,priezv:21,mzda:6);
              write('Zadaj MENO: ');
              readln(zam.meno);
              write('Zadaj PRIEZVISKO: ');
              readln(zam.priezv);
              write('Zadaj MZDU: ');
              readln(zam.mzda);
              seek(subz,cz-1);
              write(subz,zam);
              end;
close(subz);
readln;
end.
{osetrit zadavanie mzdy - ked zadam neplatne cislo}

http://uloz.to/xab5Jv6k/zaznamsubz-dat
http://uloz.to/smazat/xab5Jv6k/2596146516957427200