Написать программу-игру угадай число

program symma;
uses crt;
var
s,i:integer;
a:array[1..20] of integer;
begin 
s:=0;
for i:=1 to 20 do begin
   a[i]:=random(100);
   write(a[i]:3);
end;
for i:=10 to 20 do begin
   s:=s+a[i];
   end;
writeln;
writeln(s);
readln;
end.

program igra;
uses crt;
var
s,i:integer;
begin
s:=random(11);
repeat
writeln('ygadaj chislo');
readln(i);
until
i=s;
writeln('ygadal!!!');
readln;
end.

program symma;
uses crt;
var
s,i:integer;
begin
s:=random(11);
while i<>s do begin
writeln('ygadaj chislo');
readln(i);
end;
writeln('ygadal!!!');
readln;
end.

program symma;
uses crt;
var
    s,i:integer;
    a:array[1..20] of integer;
begin 
s:=0;
for i:=1 to 20 do 
begin
   a[i]:=random(100);
   write(a[i]:3);
end;
writeln;
for i:=1 to 20 do 
  if (a[i]>=10)and(a[i]<=20) then s:=s+a[i];
writeln('Suma:', s);
readln;
end.

for i:=11 to 20 do begin

program g4;
var i,a,b:integer;
begin
i:=0;
 a:=random(10);
 while (a<>b) and (i<5) do
   begin
   write('Введите число');
  readln(b);
  if b>a then
  writeln('Много')
  else if b<a then
    writeln ('Мало')
    else
  writeln('Вы угадали') ;    
   i:=i+1; 
  end;
           end.