Ядро подпрограммы сравнения двух длинных целых чиселдлинных чисел

procedure sravnenie;

Type

tmass=array [0..255] of byte;

Var

x,y:tmass;

l1,l2,Eq,i:byte;

fl:boolean;

f,g,h:text;

name:string[30];

……………………

{процедура печати результата в файл}

procedure WriteResult;

var

i:word;

begin

write('введите имя файла - результата ');

readLn(name);

assign(h,name);

rewrite(h);

case Eq of

0 :begin

write('числа равны');

write(h, 'числа равны');

end;

1 :begin

write('первое число больше второго');

write(h, 'первое число больше второго');

end;

2 :begin

write('второе число больше первого');

write(h, 'второе число больше первого');

end;

end;

Close(h);

end;

……………………………………………………..

Begin

ReadData (f, x);

l1:=x[0];

ReadData (g,y);

l2:=y[0];

if x[0]>y[0] then

Eq:=1;

if x[0]<y[0] then

Eq:=2;

if x[0]=y[0] then

begin

i:=1;

fl:=false;

while (i<=x[0]) and (x[i]=y[i]) do

inc(i);

fl:=(i=x[0]+1);

if fl then

Eq:=0

else

if x[i]>y[i] then

Eq:=1

else

Eq:=2;

end;

WriteResult;

end;