Проверьте программу

[Dekker11]

Если у кого-нибудь есть возможность, проверьте программу на работоспособность. Суть программы: берем одинаковое количество положительных и отрицательных, перемешанных между собой, чисел, которые записаны в файле g, упорядочиваем их так, чтобы отрицательные и положительные числа чередовались и записываем их в файл f.

const n=6;
var a,b:array[1..100] of real;
i,j,k:integer; f:text;
function sign(a:real):real;
begin
if a>0 then sign:=1
else if a=0 then sign:=0
else sign:=-1;
end;
begin
//a[1]:=-2; a[2]:=-4; a[3]:=3;
//a[4]:=2; a[5]:=4; a[6]:=-3;
assign(f,'F.txt');
reset(f);
for i:=1 to n do
begin
read(f,a[i]);
end;
close(f);
writeln('====================================');
for i:=1 to n do
write (a[i]:6:2);
writeln;
j:=3;
k:=2;
b[1]:=a[1];
for i:=2 to n do
if sign(a[i])=sign(a[1]) then
begin
b[j]:=a[i];
j:=j+2
end
else
begin
b[k]:=a[i];
k:=k+2;
end ;
writeln('====================================');
assign(f,'G.txt');
rewrite(f);
writeln(f,'====================================');
for i:=1 to n do
write (f,b[i]:6:2);
writeln(f,'');
writeln(f,'====================================');
close(f);
for i:=1 to n do
write (b[i]:6:2);
writeln;
readln;
end.

[Аватар]

А создать исходный файл и самому посмотреть результат в результирующем файле не судьба? И сделать это в нескольких вариантах исходного файла

[Dekker11]

Сообщение от Аватар

А создать исходный файл и самому посмотреть результат в результирующем файле не судьба? И сделать это в нескольких вариантах исходного файла

Возможности нет сейчас, а проверить нужно срочно