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

Program v1;
type mass=record
     fio,adr:string;
     oe,ov:integer;
     end;
     ma=array[1..100]of mass;
var n,i,max:integer;
    m:^ma;
    txt:text;
begin
assign(txt,'d:\112.txt');
rewrite(txt);
new(m);
max:=0;
write('Введите количество плательщиков: '); readln(n);
for i:=1 to n do begin
                 writeln('Вводим информацию ',i,'-го плательщика:');
                 write('Введите ФИО ',i,'-го плательщика: '); readln(m^[i].fio);
                 write('Введите адрес ',i,'-го плательщика: '); readln(m^[i].adr);
                 write('Введите его оплату за электроэнергию: '); readln(m^[i].oe);
                 write('Введите его оплату за воду: '); readln(m^[i].ov);
                 if max<m^[i].oe then max:=i;
                 end;
 
writeln('|-------|---------------------------------|-------------------------|------------|-----------|');
writeln('|№ плат.|               ФИО               |          Адрес          | За электро |  За воду  |');
for i:=1 to n do begin
writeln('|-------|---------------------------------|-------------------------|------------|-----------|');
writeln('|',i:7,'|',m^[i].fio:33,'|',m^[i].adr:25,'|',m^[i].oe:12,'|',m^[i].ov:11,'|');
end;
writeln('|-------|---------------------------------|-------------------------|------------|-----------|');
writeln('Больше электроэнергии использует ',m^[max].fio,', который проживает по адресу: ',m^[max].adr,'. За электроэнергию он заплатил ',m^[max].oe,' единиц, а за воду ',m^[max].ov,' единиц.');
 
writeln(txt,'|-------|---------------------------------|-------------------------|------------|-----------|');
writeln(txt,'|№ плат.|               ФИО               |          Адрес          |  За лектро |  За воду  |');
for i:=1 to n do begin
writeln(txt,'|-------|---------------------------------|-------------------------|------------|-----------|');
writeln(txt,'|',i:7,'|',m^[i].fio:33,'|',m^[i].adr:25,'|',m^[i].oe:12,'|',m^[i].ov:11,'|');
end;
writeln(txt,'|-------|---------------------------------|-------------------------|------------|-----------|');
writeln(txt,'Больше электроэнергии использует ',m^[max].fio,', который проживает по адресу: ',m^[max].adr,'. За электроэнергию он заплатил ',m^[max].oe,' единиц, а за воду ',m^[max].ov,' единиц.');
dispose(m);
close(txt);
writeln('Файл записан.');
end.