Реферат: Автоматическое рабочее место для работника склада

Window(16,12,66,14);

Textbackground(0);

clrscr;

Window(14,11,64,13);

Textbackground(7);

clrscr;

Gotoxy(2,2); Write('Введите поле для сортировки (1..8):');

val(Cifri(38,2,'',1,key),da,er);

if da in [1..8] then Sortirovka(da);

Window(1,1,80,25);

end;

end;

until (res<1) or (res=6);

Rewrite(f);

Sortirovka(1);

for i:=0 to Schet-1 do Write(f,List[i]);

close(f);

end.