Составить программу, которая определяет выручку фирмы за каждый месяц

uses crt;
type printer = record
name:string;
tsena:integer;
J,F,M:integer;
end;
var base:array[1..50] of printer;
f1,f2:text;
i,n:integer;
VirJ,VirF,VirM:real;
name,Kol:string;
tsena:integer;
J,F,M:integer;
begin
assign(f1,'input.txt');
assign(f2,'out.txt');
reset(f1);
rewrite(f2);
read(f1,name,J,F,M,tsena);
for i:=1 to n do
with base[i] do
begin
clrscr;
write('Принтер:'); read(name);
writeln('Количество:');
write('Январь:'); read(j);
write('Февраль:'); read(f);
write('Март:'); read(m);
write('Цена:'); read(tsena);
write('_____________________________________________');
VirJ:=0;
for i:=1 to n do
with base[i] do
begin
VirJ:=J+tsena;
VirF:=F+tsena;
VirM:=M+tsena;
writeln( '|' ,name, '|' ,     Kol     , '|',tsena,'|');
writeln(            '|' ,J,'|',F,'|',M, '|'           );
write('____________________________________');
end;end;end.

uses crt;
type printer = record
name:string;
tsena:integer;
J,F,M:integer;
end;
var base:array[1..50] of printer;
f1,f2:text;
i,n:integer;
VirJ,VirF,VirM:real;
name,Kol:string;
tsena:integer;
J,F,M:integer;
begin
assign(f1,'input.txt');
assign(f2,'out.txt');
reset(f1);
rewrite(f2);
read(f1,name,J,F,M,tsena);
with base[i] do
begin
clrscr;
writeln(f2,'Принтер:'); read(f1,name);
writeln(f2,'кол-во:');
writeln(f2,'Январь:'); read(f1,j);
writeln(f2,'Февраль:'); read(f1,f);
writeln(f2,'Март:'); read(f1,m);
writeln(f2,'Цена:'); read(f1,tsena);
writeln(f2,'_____________________________________________');
with base[i] do
writeln(f2,' ');
writeln(f2,'|' ,name, '|' ,     Kol     , '|',tsena,'|');
writeln(f2,            '|' ,J,'|',F,'|',M, '|'           );
write(f2,'____________________________________');
writeln(f2,'Выручка за январь',tsena+J);
writeln(f2,'Выручка за февраль',tsena+F);
writeln(f2,'Выручка за март',tsena+M);
close(f1);
close(f2);
end;end.