про улиточку

uses crt;
var d:array[1..30] of byte;
    a,b,s,i:word;
begin
clrscr;
randomize;
write('Высота дерева в метрах b=');
readln(b);
b:=b*100;
repeat
write('Положение улитки в см на начало наблюдения a<=',b,' a=');
readln(a);
until a<=b;
writeln('Солнечные - 1, и пасмурные - 0 дни:');
for i:=1 to 30 do
 begin
  d[i]:=random(2);
  write(d[i],' ');
 end;
writeln;
writeln;
s:=a;
for i:=1 to 30 do
 begin
  if (d[i]=1) and(s<=b) then
   begin
    s:=s+2;
    writeln(i:2,' день=',s:4,'  ');
   end
  else if(d[i]=0)and(s>=2)then
   begin
    s:=s-1;
    writeln(i:2,' день=',s:4,'  ');
   end;
  if i=20 then readln;
end;
writeln;
write('К концу 30-го дня = ',s);
readln
end.

var
a,b,s,i,t:integer;
d:array[1..30]of integer;
begin
randomize;
writeln('vvedite vysotu dereva');
readln(b);
writeln('vvedite vysotu ulitki');
readln(a);
while a>b do
begin
writeln('vysota ulitki vyshe dereva');
writeln('vvedite druguyu vysitu ulitki');
readln(a);
end;
repeat
writeln('vvedite den nabludeniya');
readln(t);
until t<=30;
writeln('pogoda: 1-yasno, 0-pasmurno');
for i:=1 to 30 do
begin
d[i]:=random(2);
write(d[i],' ');
end;
writeln;
for i:=1 to 30 do
begin
if d[i]=1 then
  begin
    s:=0;
     while (a<b)and(s<2)do
       begin
       inc(a);
       inc(s);
     end;
   end
   else if a>0 then dec(a);
 if i=t then writeln('v den ',t,' vysota=',a);
 end;
 writeln('v konce mesyaca vysota=',a);
readln;
end.

program n3;
var i,j,a,n,b,m:integer;
x:array[1..30] of char;
begin
writeln('vvedit 0<=A<=B');
readln(a);
writeln('vvedit 10<=B<=300');
readln(B);
writeln('vvedit 1<=N<=30');
readln(n);
writeln('poxmyruj den p,sonja4nuj s');
for i:=1 to n do
readln(x[i]);
m:=a;
for i:=1 to n do begin
if (m<b) and (m>0) then begin
if x[i]='s' then m:=m+2;
if x[i]='p' then m:=m-1;
end;
end;
writeln(m);
end.