Вопрос по Таблице

[I1IarpeY]

Как сделать чтобы итого и сумма была после всех товаров? как показано на рисунке


вот сама прога

Program zadacha3;
uses crt;
var f:text;
naz:string;
str:string;
prib:real;
sto,sto2:real;
n:integer;
const
i=3;
function summmma : real;
var s:string;
n:integer;
sum :real;
begin
writeln('BBbl4ucJIeHue Cymmbl');
sum:=0;
Assign(f,'G:\f.txt');
Reset(f);
While not eof (f) do begin
Readln(f,s);
Readln(f,s);
Readln(f,n);
sum:=sum+n;
end;
end;
Begin
clrscr;
assign(f,'g:\f.txt');
Reset(f);
writeln(' ЙНННННН»');
Writeln(' є FipMaє');
Writeln(' ИННННННј');
Writeln('ЙНННЛННННННННННЛНННННННННН НННННННЛНННННННННННЛННННННННННННННЛ НННННННННННН»');
Writeln('є N є Ha3vaHue є CTpaHa є CTouMoCTb є CTouMocTb є IIpu6blJIb є');
writeln('є є є IIpou3boDuTeJIb є B}{oDHa9( є IIpoDa}|{u є є ') ;
Writeln('МНННОННННННННННОНННННННННН НННННННОНННННННННННОННННННННННННННО НННННННННННН№');
While not EOF (f) do
begin
Readln(f,naz);
Readln(f,str);
Readln(f,sto);
if n>=0 then
n:=n+1;
sto2:=sto*1.2;
prib:=sto2-sto;
Writeln('є ',n,' є ',naz:8,' є ',str:15,' є ',sto:9:2,' є ',sto2:10:2,' є ',prib:10:2,' є');
Writeln('МНННОННННННННННОНННННННННН НННННННОНННННННННННОННННННННННННННО НННННННННННН№');
readkey;
end;
end.

[.Phoenix]

С иероглифами сложновато....