program baza1;
uses dos, crt;
type tdane=record
       stanowisko:string[30];
       premia:real;
       end;
       tbaza=file of tdane;

const plik_bazy='baza.bin';
var dane:tdane;
    baza:tbaza;
    pozyc:byte;
    t: array [1..99] of tdane;
  wybor:byte;

procedure element(ile:byte; znak:char);
var i:byte;
begin
     for i:=1 to ile do write(znak);
end;

procedure skojarzenie(var b:tbaza;p:string);
begin
   assign(b,p);
end;{---------------------------------------------skojarzenie--------------}

procedure otwarcie (var b:tbaza;p:string);
begin
  if FSearch(p,'')=''
  then rewrite(b)
  else reset(b);
end;{---------------------------------------------otwarcie-----------------}

procedure usun_plik(var plik:tbaza;var pozycja:integer);
          var
          plik_temp:tbaza;
          dane:tdane;
          begin
               assign(plik_temp,'temp.bin');
               rewrite(plik);
          repeat
                read(plik,dane);
                write(plik_temp,dane);
          until (EOF(plik));
                 seek(plik_temp,0);
          repeat
                read (plik_temp,dane);
                write(plik,dane);
          until(eof(plik_temp));
          close(plik_temp)
end;

procedure menu(var w:byte);
begin
  clrscr;
  TextColor(white);
  writeln('1-Wyswietlenie Bazy Danych ');
  writeln('2-Dodawanie do Bazy Danych ');
  writeln('3-Poprawianie danych');
  writeln('4-Usuwanie danych z bazy');
  writeln('5-Sortowanie');
  writeln('6-Koniec');
  write('Podaj liczbe "1-6" - ');
  readln(w);
  writeln;
end;

procedure wyswietlanie(var plik:tbaza);

var d:tdane;
    szer1, szer2:byte;
    dl:byte;
    temp:0..1;
begin
     clrscr;
     seek(plik,0);
     szer1:=30; szer2:=15;
     write(#201);
     element(szer1-2,#205);
     write(#203);
     element(szer2-2,#205);
     writeln(#187);
     writeln(#186,'         Stanowisko         ',#186,'  Premia (%) ',#186);
     write(#204);
     element(szer1-2,#205);
     write(#206);
     element(szer2-2,#205);
     writeln(#185);
     repeat
       with d do
       begin
            read(plik,d);
            //writeln(stanowisko,' - ',premia:0:0);
            dl:=length(stanowisko);
            if dl mod 2 <> 0 then temp:=1 else temp:=0;
            write(#186);element(((szer1-dl) div 2)-1,' '); element(temp,' ');
            write(stanowisko); element(((szer1-dl) div 2)-1,' ');
            write(#186);element(((szer2-2) div 2)-1,' ');
            write(premia:2:0); element(((szer2-2) div 2),' ');
            writeln(#186);
       end;

     until eof(plik);
     write(#200);
     element(szer1-2,#205);
     write(#202);
     element(szer2-2,#205);
     writeln(#188);
     writeln;
     write('Nacisnij dowolny klawisz aby powrocic do MENU');
     repeat until keypressed;
end;{------------------------------wyswietlanie-----------------}

procedure dodawanie(var plik:tbaza);
var d:tdane;
begin
     clrscr;
     with d do
     begin
          TextColor(blue);
          write('Podaj stanowisko: ');
          readln(stanowisko);
          write('Podaj premie w %: ');
          readln(premia);
          seek(plik,filesize(plik));
          write(plik,d);
     end;{with}
end;{------------------------------dodawanie-----------------}

procedure poprawianie(var plik:tbaza);
begin

end;{------------------------------poprawianie-----------------}


procedure usuwanie(var plik:tbaza);
begin

end;{------------------------------usuwanie-----------------}

procedure sortowanie(var plik:tbaza);
begin

end;{------------------------------sortowanie-----------------}


begin
  skojarzenie(baza, plik_bazy);
  otwarcie(baza,plik_bazy);
 // dodawanie(baza,pozyc);
  repeat
        menu(wybor);
        case wybor of
             1:wyswietlanie(baza);
             2:dodawanie(baza);
             3:poprawianie(baza);
             4:usuwanie(baza);
             5:sortowanie(baza);
        end;
  until wybor=6;
end.