Как исправить ошибку? Заранее спасибо.

program wrfg;
const nmax=20;
type mas=array[1..nmax] of integer;
var
a:mas; n,sum,kol:integer;

procedure entry(var a:mas; n:integer);
var i:integer;
begin
for i:=1 to n do readln(a[i]);
end;

procedure print(var a:mas; n:integer);
var i:integer;
begin
for i:=1 to n do writeln(a[i]);
readln;
end;

procedure summa(a:mas; n:integer; var s,k:integer);
var i:integer;
begin
s:=0;k:=0;
for i:=1 to n do
if (a[i]>0) then begin
s:=s+a[i];
k:=k+1;
//writeln(s,k);
//readln;
end;
begin
readln(n);
entry(a,n); print(a,n); summa(a,n,sum,kol);
end.
Ожидался символ "точка с запятой" перед последней точкой.