проблема с Pascalями:(, Error while linking Опции

[kizan]

есть программа, в которой компиляционных ошибок нет, но вычисляет неверно.
в школе она запускалась нормально, принёс домой при запуске пишет Error while linking.
если куда-нибудь дописать случайный символ, то паскаль пишет ошибку орфографии.
если в этом же паскале написать простейшую программу типа

var x:integer;
begin
read(x); write(x);
end.
 

работает без ошибочно. а именно на мою безошибочную программу выводит Error while linking.
_____________________________
если кому интересно вот текст программы(калькулятор)

var a,c,i,x:longint;
function step(a,s:longint):longint;
var z:longint;
begin
z:=1;
if s=0 then step:=1 else begin
for i:=1 to s do
z:=z*a;
step:=z;
end;
end;
function perevod10(a,c:longint):longint;
type t=array[1..20] of integer;
var m:t;
K,l:integer;
begin
	k:=0;
	while a>0 do begin
		k:=k+1;
		m[k]:=a mod 10;
		a:=a div 10;
		end;
		l:=0;
	for l:=k downto 1 do
		a:=a+step(c,l-1)*m[l];
		perevod10:=a;
		writeln('IIepeBe/\ B 10. IIo/\y4u/\ ',a);
		readln();
	end;
function perevodc(a,c:longint):longint;
type t=array[1..20] of integer;
var m:t;
k,q:integer;
begin
k:=0;
q:=0;
while a>=1 do begin
k:=k+1;
m[k]:=a mod c;
a:=a div c;
end;
for i:=k downto 1 do
q:=q*10+m[i];
perevodc:=q;
end;
procedure summa;
var a,b,c,ac,bc,sum,sumc:longint;
begin
	writeln('BBeguTe cucTemy c4uc/\eHu9(2-16)');
	readln©;
	writeln('BBeguTe c/\araemoe');
	readln(a);
	writeln('BBeguTe c/\araemoe');
	readln(b);
	if c=10 then sumc:=a+b else begin
	ac:=perevod10(a,c);
	bc:=perevod10(b,c);
	sum:=ac+bc;
	sumc:=perevodc(sum,c);
	end;
	writeln('cucTema c4ucleHu9 - ',c,'. ',a,'+',b,'=',sumc);
	readln();
end;
procedure raznostb;
var a,b,c,ac,bc,razn,raznc:longint;
begin
	writeln('BBeguTe cucTemy c4uc/\eHu9(2-16)');
	readln©;
	writeln('BBeguTe ymeHbIIIaemoe');
	readln(a);
	writeln('BBeguTe BbI4uTaemoe');
	readln(b);
	ac:=perevod10(a,c);
	bc:=perevod10(b,c);
	razn:=ac-bc;
	raznc:=perevodc(razn,c);
	writeln('cucTema c4ucleHu9 - ',c,'.',a,'-',b,'=',raznc);
	readln();
end;
procedure umnozhenie;
var a,b,c,ac,bc,umn,umnc:longint;
begin
	writeln('BBeguTe cucTemy c4uc/\eHu9(2-16)');
	readln©;
	writeln('BBeguTe mHo)/(uTe/\b');
	readln(a);
	writeln('BBeguTe mHo)/(uTe/\b');
	readln(b);
	ac:=perevod10(a,c);
	bc:=perevod10(b,c);
	umn:=ac*bc;
	umnc:=perevodc(umn,c);
	writeln('cucTema c4ucleHu9 - ',c,'.',a,'*',b,'=',umnc);
	readln();
end;
procedure delenie;
var a,b,c,ac,bc,delc,delb:longint;
del:real;
begin
	writeln('BBeguTe cucTemy c4uc/\eHu9(2-16)');
	readln©;
	writeln('BBeguTe ge/\umoe');
	readln(a);
	writeln('BBeguTe ge/\uTe/\b');
	readln(b);
	ac:=perevod10(a,c);
	bc:=perevod10(b,c);
	del:=ac/bc;
	delb:=round(del);
	delc:=perevodc(delb,c);
	writeln('cucTema c4ucleHu9 - ',c,'.',a,'/',b,'=',delc);
	readln();
end;
begin
	writeln('gobpo po)/(a/\oBatb');
	x:=5;
	while x<>0 do begin
		writeln('BbIbepuTe geucTBue(write 0-4)');
		writeln('0-exit');
		writeln('1-<+>');
		writeln('2-<->');
		writeln('3-<*>');
		writeln('4-</>');
		readln(x);
		if x=1 then summa
			else
		if x=2 then raznostb
			else
		if x=3 then umnozhenie
			else
		if x=4 then delenie;
end;
writeln('cIIacubo 3a ucIIo/\3oBaHue');
readln();
end.

Сообщение отредактировано: kizan - 31.01.2012 15:58