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.