I always got "Crach" answer! Can anybody help me, please?!

Here is my program....

{my e-mail is: limak8@wp.pl}

var
tab: array [0..10000] of char;
max,i: longint;
c: char;

begin
max:=80;
for i:=1 to 80 do tab[i]:=' ';

i:=1;
repeat

read(c);
if c='<' then begin i:=i-1 end else
if c='>' then i:=i+1 else
if c=#13 then else begin
                   tab[i]:=c;
                   i:=i+1;
                   end;

If i<=0 then i:=1 else if i>max then max:=i;

until c=#13;

i:=0;
repeat
i:=i+1;
write(tab[i]);
until i=max;

end.

You need to put limits on this part:

if c='<' then begin i:=i-1 end else

something like this:

if c='<' then if i>0 then inc(i);

that may be the problem.

You need to put limits on this part:

if c='<' then begin i:=i-1 end else

something like this:

if c='<' then if i>0 then dec(i);

that may be the problem.