Курсовая работа: Автоматизоване нарахування заробітної плати

end;

{.......................}

procedure nas;

var i:integer;

begin

window(1,1,40,25);

textbackground(3);

clrscr;

gotoxy(15,1); writeln('POISK');

window(5,2,35,25);

textcolor(1);

if fsearch('rab','rab')='' then

begin

textcolor(4);

write('FAIL NE NAIDEN!!!');

end

else

begin

assign(f,'rab');

reset(f);

for i:=0 to filesize(f)-1 do

begin

seek(f,i);

read(f,rab);

writeln('Rabo4iy "',rab.im,'": poluchaet-',rab.zp,'grn');

writeln;

end;

readln;

close(f);