OJ Board

Could help me? I don't know what's wrong with it?
or give me some input?

var
tab:array[1..1000000]of longint;
wyn:array[1..50000]of byte;
n,a,nr,b:longint;
czy:boolean;
begin
tab[1]:=2;
nr:=2;
fillchar(wyn,sizeof(wyn),0);
for a:=2 to 1000000 do
tab[a]:=maxlongint;
for a:=3 to 1000000 do ...

I've got a problem with my program.
Please help me
These is source
var
c,il,suma,a,b,min:longint;
wyn:array[1..13]of longint;
s:string;
czy:boolean;
begin
{assign(input,'414.in');
reset(input);}
readln(il);
while il<>0 do
begin
min:=maxlongint;
czy:=false;
for a:=1 to il do
begin ...

I don' know what is wrong with it

const
tab:array[1..9] of string=
('1','22','333','4444','55555','666666','7777777','88888888','999999999');
var
a,i,q,n,m,j:longint;
begin
while not eof do
begin
readln(n);
readln(m);
if n>0 then
for i:=1 to m do
begin
for j:=1 to n do
writeln(tab[j ...

Please help me!!!!!!!!!!!!!!!!!!!!!!!!!!11

Sorry, I just know what is wrong with it.

Sorry there isn't
assign(output,'bla.out');
rewrite(output);
close(output);
but there is also WA

var
a,w:longint;
fib:array[0..5000]of string;

Function dod(s,wyn:string):string;
var
w,a,pom1,pom2,d1,d2,reszta:longint;
begin
while length(s)<length(wyn) do
s:='0'+s;
while length(s)>length(wyn) do
wyn:='0'+wyn;
d1:=length(s);
d2:=length(wyn);
reszta:=0;
for d1:=d1 downto 1 do
begin ...

I don't know what is wrong with it:

var
tab:array[1..50]of byte;
a,b,n:longint;
begin
assign(output,'bla.out');
rewrite(output);
while not eof do
begin
fillchar(tab,sizeof(tab),0);
readln(n);
a:=2;
b:=1;
while a<=n do
begin
tab :=a;
n:=n-a;
inc(a);
inc(b);
end;
if a=n+1 then
begin ...