Есть код под паскаль с goto x y
как заставить этот код рабоать в делфи
| Код |
Begin
assign(f,'work.dan');
reset(f);
writeln('Введите номер цеха');
readln(c); {считываем ключ запроса: номер цеха по которому нужна информация}
k:=0; s:=0; maxz:=0;
writeln('Ведомость работников цеха ',c);
while not(eof(f)) do
begin
read(f,p);
with p do
begin
if ceh=c then {если номер цеха в записи совпадает со значением запроса проводим обработку}
begin
k:=k+1;
s:=s+zar;
write(name);
gotoxy(25,Wherey);
writeln(zar:4:2);
if pol='м' then {ищем мужчину с максимальной зарплатой }
if maxz<zar then
maxz:=zar;
end;
end;
|
|
)