Создать файл, содержащий сведения о работниках фирмы

uses crt;
type
   firm = record
      f,d,o: string;
      gr,st,okl: integer;
      end;
var
   s,f,d,o,gr1,st1,okl1:array [1..100] of string;
   a: array[1..100] of firm;
   filename, obr:string;
   k,x,i,min,q,w,j,code,rew:integer;
   gr,st,okl:array [1..100] of integer;
   t: text; key: char;
begin
  k:=1;
   write('введите имя файла: ');
   readln(filename);
   assign(t,filename);
   rewrite(t);
   repeat
      inc(i);
      with a[i] do begin
         write('фамилия работника: ');
         readln(f);
         write(t,f,' ');
         write('должность: ');
         readln(d);
         write(t,d,' ');
         write('образование: ');
         readln(o);
         write(t,o,' ');
         write('год рождения: ');
         readln(gr);
         write(t,gr,' ');
         write('стаж работы: ');
         readln(st);
         write(t,st,' ');
         write('оклад: ');
          readln(okl);
         write(t,okl);
         writeln(t);
      end;
         writeln('Выход? (д/н) ');
         readln(key); if key='н' then k:=k+1;
         until upcase(key)='Д';
   close(t);
   reset(t);
for i:=1 to k do
 while not eof(t) do
begin
readln(t,s[i]);
end;
    for i:=1 to k do
    begin
    Insert (' ', s[i],length(s[i])+1);
    for j:=1 to length(s[i]) do
    begin
    w:=pos(' ',s[i]);
    f[j]:=copy(s[i],1,w-1);
    Delete(s[i],1,w);
     w:=pos(' ',s[i]);
    d[j]:=copy(s[i],1,w-1);
    Delete(s[i],1,w);
     w:=pos(' ',s[i]);
    o[j]:=copy(s[i],1,w-1);
    Delete(s[i],1,w);
     w:=pos(' ',s[i]);
    gr1[j]:=copy(s[i],1,w-1);
    Delete(s[i],1,w);
     w:=pos(' ',s[i]);
    st1[j]:=copy(s[i],1,w-1);
    Delete(s[i],1,w);
     w:=pos(' ',s[i]);
    okl1[j]:=copy(s[i],1,w-1);
   Delete(s[i],1,w);
    end;
    end;
    for i:=1 to k do begin
    Val(gr1[i],gr[i],code);
    Val(st1[i],st[i],code);
    Val(okl1[i],okl[i],code);
    end;
    obr:='высшее';
    writeln('содрудники с высшим образованием: ');
    for i:=1 to k do
    begin
    if o[i]=obr then writeln(f[i]) else rew:=rew+1;
    end;
    if rew=k then writeln('сотрудников с высшим образованием нет');
      write('введите максимальный возраст ');readln(x);
    q:=2013-x;
    writeln('сотрудники младше ',x,':');
    for i:=1 to k do
    begin
    if gr[i]>q then writeln(f[i],' ',st[i]);
    end;
     min:=okl[1];
for i:=2 to k do
  begin
     if min>okl[i] then
       min:=okl[i];
  end;
  for i:=1 to k do
  if okl[i]=min then
         writeln('фамилия работника: ',f[i],'; минимальный оклад: ',min);
 readkey;
   close(t);
end.

{Создать файл, содержащий сведения о работниках фирмы. 
Каждая запись содержит поля: фамилия работника, должность, образование, 
год рождения, стаж работы, оклад. Количество записей произвольное. 
Написать программу, выводящую на экран следующую информацию:
- список работников, имеющих высшее образование;
- список работников младше возраста X с указанием стажа работы;
- у кого из рабочих самый маленький оклад.}
 
program xxx;
 
type ed = record
    high : boolean;
    mid : boolean;
    no : boolean;
end;
 
type data = record
    lastname : string;
    post : string;
    education : ed;
    year : integer;
    exp : integer;
    salary : integer;
end;
 
const n = 3; //Кол-во записей
 
var f : file of data;
        a : array [1..n] of data;
        
function AttachFile() : boolean;
var x : string;
begin
    write('Введите путь: ');
    readln(x);
    assign(f,x);
    rewrite(f);
    AttachFile := true;
end;
 
procedure AddData();
var i,temp : integer;
begin
    writeln('Введите информацию: ');
    for i := 1 to n do
        begin
            write('Фамилия ',i,'-ого работника: ');
            readln(a[i].lastname);
            write('Должность: ');
            readln(a[i].post);
            write('Образование (1-высшее,2-среднее,3-нету: '); //тут можно естественно изменить увеличив например case, неполное среднее и тд. и в этом случае изменить тип "ed"
            readln(temp);
            case temp of
                1 : a[i].education.high := true;
                2 : a[i].education.mid := true;
                3 : a[i].education.no := true;
            end;
            write('Год рождения: ');
            readln(a[i].year);
            write('Стаж работы: ');
            readln(a[i].exp);
            write('Оклад: ');
            readln(a[i].salary);
            write(f,a[i]);
        end;
end;
 
procedure SearchEducation();
var i : integer;
begin
    writeln('Высшее образование имеют: ');
    for i := 1 to n do
        begin
            if a[i].education.high then
                writeln(a[i].lastname);
        end;
end;
 
procedure SearchAge();
var i,temp : integer;
begin
    write('Введите год рождения: ');
    readln(temp);
    writeln('Список работников младше введенного возраста: ');
    for i := 1 to n do
        begin
            if a[i].year > temp then
                writeln(a[i].lastname);
        end;
end;
 
procedure SearchSalary();
var i : integer;
        temp : data;
begin
    write('Самый маленький оклад у: ');
    temp := a[1];
    for i := 1 to n do 
        begin
            if temp.salary > a[i].salary then
                begin
                    temp.salary := a[i].salary;
                    temp.lastname := a[i].lastname;
                end;
        end;
    writeln(temp.lastname,' равный : ',temp.salary);
end;
 
begin
    if AttachFile() then
        begin
            AddData();
            SearchEducation();
            SearchAge();
            SearchSalary();
        end;
    readln;
    close(f);
end.

Uses crt;
type
   firm = record
      f,d,o: string;
      gr,st,okl: integer;
      end;
var
   a,p: array[1..100] of firm;
   obr:string;
   n,x,i,min,q,w,j,code,rew:integer;
   t: file of firm;
Begin
write('количество сотрудников='); readln(n);
assign(t,'firma');
rewrite(t);
for i:=1 to n do
with a[i] do
begin
write('фамилия ',i,' сотрудника: '); readln(f);
write('должность: '); readln(d);
write('образование: '); readln(o);
write('год рождения: '); readln(gr);
write('стаж работы: '); readln(st);
write('оклад: '); readln(okl);
write(t,a[i]);
end;
close(t);
w:=0;
obr:='высшее';
writeln('введите максимальный возраст: ');readln(x);
q:=2013-x;
assign(t,'firma');
reset(t);
writeln('сотрудники с высшим образованием:');
for i:=1 to n do
begin
read(t,p[i]);
if (obr=p[i].o) then
writeln(p[i].f) else inc(w);
end;
if w=n then writeln('сотрудников с высшим образованием нет ');
w:=0;
writeln('сотрудники младше ',x,':');
for i:=1 to n do
if (q<p[i].gr) then
writeln(p[i].f,' ',p[i].st) else inc(w);
if w=n then writeln('сотрудников младше ',x,' нет ');
 min:=p[1].okl;
for i:=2 to n do
  begin
     if min>p[i].okl then
       min:=p[i].okl;
  end;
  writeln('самый маленький оклад у:');
for i:=1 to n do
if (min=p[i].okl) then
writeln(p[i].f);
close(t);
end.