Проверьте ,рабочий ли код

[Deshrefresh]

uses crt;

var
f, g : text;
a, b : array [1..100] of real;

i,
m1, m2 : byte;

begin
assign(f,'d:\files\mas.txt');
{$i-}
reset(f);
{$i+}
if ioresult <> 0
then rewrite(f);

assign(g,'d:\files\result.txt');
{$i-}
reset(g);
{$i+}
if ioresult <> 0
then rewrite(g)
else append(g);

write('vvedite razmer matrici A :'); readln(m1);
for i:=1 to m1 do
read(f,a[i]);

write('vvedite razmer matrici B :'); readln(m2);
for i:=1 to m2 do
read(f,b[i]);

writeln(g,'Massive A:');
for i:=1 to m1 do
if a[i]>0 then
write(g,a[i]:3:2,' ');

writeln(g);
writeln(g);

writeln(g,'massive B:');
for i:=1 to m2 do
if b[i]>0 then
write(g,b[i]:3:2,' ');

close(g);
close(f);

writeln('sdelano.');
readln;
donewincrt;

end.

[p51x]

компилируется? выполняет то, что должен? значит рабочий...