请各位大哥帮帮 看我的程序哪里有问题

program zxgbszdgys;
var
a:array[1..100] of integer;
i,n,x,y:integer;
function gbs(a,b:integer):integer;
var
k:integer;
begin
repeat
k:=k+a;
until k mod b=0;
gbs:=k;
end;

function gys(a,b:integer):integer;
var
k,l,temp:integer;
begin
if a>b then
begin
k:=a;
l:=b;
end
else begin
k:=b;l:=a;
end;
if (k mod l)=0 then
begin
gys:=l;
exit;
end;
repeat
k:=k-l;
if k<l then
begin
temp:=k;
k:=l;
l:=temp;
end;
until k=l;
gys:=l;
end;

begin
readln(n);
read(a[1]);
x:=a[1];y:=a[1];
for i:=2 to n do
begin
read(a[i]);
x:=gbs(x,a[i]);
y:=gys(y,a[i]);
end;
write(x,y);
end.

pascal的啊，一运行的时候总是显示Error wh

请各位大哥帮帮我的忙！ 请各位大哥帮帮我 请问各位有经验的大哥大姐们!在哪里下vagaa还有怎么用vagaa搜索和下载看另类电影啊看啊??请各位帮帮我吧! JJ的问题 请各位大哥.大姐帮帮我 谢谢 请各位大哥大姐帮帮我,笔记本的问题! C语言初学菜鸟，请各位大哥大姐帮帮我看看这个程序为什么出错啊 请各位大哥大姐帮帮我！十万火急 请各位大哥大姐帮帮我 各位高手大哥,请帮帮我...... 急!!!请各位大哥大姐帮帮我