не могу рещить прогу искал в поиске подобного не нашел!!! не знаю как делать
Вот она:
составить прогу, к-ая создает файл, компоненты которого имеют следующую структуру:
табельный номер;
ФИО;
оклад.
Введите в файл данные о пяти работниках, выведите в другой файл данные о работнике, имеющем максимальный оклад

Значит, плохо искал. Вот задача совершенно аналогичная. Все, что нужно сделать - направить вывод в файл и заменить работу со сроком службы работой с окладом.
Комбинированные типы данных

И больше темы не дублируй !!!

спасибо за ссылку!!

Ну Вот_же_почти_твоя_программа только убери лишнее, (там даже больше сделано )и можешь идти сдавать,
давай, попробуй сам хотябы переделать, хочешь чтобы все за тебя написали опять ...

ну а как напавить результат в файл? а потом с большим окладом в друго
p.s. а некоторые задачи я решил сам!!!

ну например так :

uses crt;
type
   Trec=record
      FIO:string[51];
      oklad:integer;
   end;

var
   f,f1:text;

   workers:array[1..5] of TRec;

   i,nmax:integer;


Begin
   clrscr;
   assign(f,'c:\Data.txt');
   rewrite(f);
   for i:=1 to 5 do
    with workers[i] do
     begin
        writeln('Фио рабочего N  ',i);
        readln(fio);
        writeln(f,fio);
        write('Оклад : ');
        readln(oklad);
        writeln(f,oklad);
     end;

   nmax:=1;

   for i:=2 to 5 do
    if workers[i].oklad>workers[nmax].oklad then
     nmax:=i;

   assign(f1,'c:\max.txt');
   rewrite(f1);
   writeln(f1,workers[nmax].fio);
   writeln(f1,workers[nmax].oklad);
   close(f1);

   close(f);

   readln;
end.