Создать текстовый файл, содержащий информацию о сотрудниках фирмы.

type
 Firm= record
  Number: Word;
  Surmame: String[50];
  Salary: Float;
  Plan: Word;
  Done: word; 
 end;
var
 FileFirm : file of firm;
begin
 Assign(FileFirm, 'D:\Firm.dat');
 Rewrite(FileFirm);
 Write(FileFirm, FileSize(FileFirm));
 Close(FileFirm);
end;

uses crt;
const n=1;
type pep=record
      name:string;
      p1,p2,p3:integer;
     end;
var x:array[1..100] of pep;
    i:integer;
    f:text;
begin
ClrScr;
for i:=1 to n do
 with x[i] do
  begin
   Write(' Name: ');
   Readln(name);
   Write(' Zarplata: ');
   Readln(p1);
   Write(' Zaplanirovano: ');
   Readln(p2);
   Write(' Vipolneno: ');
   Readln(p3);
  end;
Writeln;
Writeln('Spisok: ');
Assign(f,'fam.txt');
Rewrite(f);
Writeln(f,'---------------------------------------------');
Writeln(f,'| ь |  Name  |  Zarp  |  Zapl |  Vipolneno  |');
Writeln(f,'---------------------------------------------');
for i:=1 to n do
 Writeln(f,'|',i:3,'|',x[i].name:8,'|',x[i].p1:8,'|',x[i].p2:7,'|',x[i].p3:13,'|');
Writeln(f,'---------------------------------------------');
close(f);
Readln;
end.