Perfeccionando el Pascal

Arreglando un poquito el programa del otro día en Pascal. Serviría para una contabilidad doméstica. Un poco la "cuenta de la vieja". Los gastos hay que meterlos como números negativos. Si ponemos acentos o eñes en el concepto nos descabala la salida - que fácilmente se descabala-. Que cada uno lo arregle a su manera.


program pruf12 (input, output);
var
i:integer;
cantidad:array[1..100] of real;
fecha:packed array[1..100] of string[8];
cpto: array[1..100] of string[30];
c,suma:real;

begin
i:=0;
repeat
i:=i+1;
writeln('Apunte nº',i);
write('Fecha: '); readln(fecha[i]);
write('Concepto: '); readln(cpto[i]);
write('Cantidad ingres. o gast. (+/-): '); readln(c);
cantidad[i]:=c;
writeln('-----------');
until c=0;
i:=1;
suma:=0;
writeln('Fecha.... Concepto..........   Caja..... Saldo.....');
while cantidad[i] <> 0 do
begin
suma:= suma + cantidad[i];
write(fecha[i],': ');
write(cpto[i]:15,'...');
write(cantidad[i]:10:2);
writeln(suma:10:2);
i:=i+1;
end;
writeln;
writeln('Saldo final: ',suma:10:2);
end.

La salida sería, por ejemplo, así:

Apunte nº1
Fecha: 01/01/11
Concepto: Sueldo recibido
Cantidad ingres. o gast. (+/-): 1346
-----------
Apunte nº2
Fecha: 11/01/11
Concepto: Alquiler del piso
Cantidad ingres. o gast. (+/-): -670
-----------
Apunte nº3
Fecha: 23/01/11
Concepto: Gastos de alimentacion
Cantidad ingres. o gast. (+/-): -346
-----------
Apunte nº4
Fecha: 
Concepto: 
Cantidad ingres. o gast. (+/-): 0
-----------
Fecha....  Concepto..........      Caja.....    Saldo.....
01/01/11: Sueldo recibido...   1346.00   1346.00
11/01/11: Alquiler del pi...        -670.00     676.00
23/01/11: Gastos de alime...   -346.00     330.00


Saldo final:     330.00