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

begin
clrscr;
i:=0;
assign(zdroj,'RecordDB.txt');
reset(zdroj);
while NOT(EOF(zdroj)) do begin
                         inc(i);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[i].meno:=COPY(s,1,m[1]-1);
                         zam[i].priezv:=COPY(s,m[1]+1,m[2]-m[1]-1);
                         mzdaS:=COPY(s,m[2]+1,n-M[2]);
                         VAL(mzdaS,zam[i].mzda,ch);
                         end;
close(zdroj);
for i:=1 to 10 do writeln(zam[i].meno:16,zam[i].priezv:21,zam[i].mzda:6);
readln;
end.

{Databaza - https://www.dropbox.com/s/d0sjlbe1u5u9y38/RecordDB.txt?dl=0}

{majme textovy subor, kde v kazdom riadku je prave 1 veta neukoncena bodkou a oddelovacom slov je vzy a prave 1 medzera (ziadne ciarky, vykricniky, zatvorky), na
riadku je max 255  znakov - vytvor program, kt. zisti dlzku najdlhsieho slova v texte a vypise  ho na obrazovku}