Цикл с параметром

uses crt;
procedure one(a,h:real;var s:real);
begin
writeln('Введите основание и высоту треугольника:');
readln(a,h);
s:=a*h/2;
writeln('Площадь=',s:0:2);
readln
end;
procedure two(a,b,u:real;var s:real);
begin
repeat
writeln('Введите 2 стороны и угол между ними в радианах (0<u<',pi:0:2,'):');
readln(a,b,u);
until(u>0)and(u<pi);
s:=a*b*sin(u)/2;
writeln('Площадь=',s:0:2);
readln
end;
procedure three(a,b,c:real; var s:real);
var p:real;
begin
repeat
writeln('Введите 3 стороны треугольника:');
readln(a,b,c);
if(a<=abs(b-c))or(a>=b+c) then writeln('это не треугольник. Повторите ввод.');
until (a>abs(b-c))or(a>=b+c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь=',s:0:2);
readln
end;
var a,b,c,h,u,s:real;
    n,i:byte;
    ser:array[1..100] of byte;
begin
clrscr;
randomize;
repeat
write('Размер серии до 100 n=');
readln(n);
until n in [1..100];
writeln('Введите элементы серии [0..3]');
for i:=1 to n do
repeat
readln(ser[i]);
until ser[i] in [0..3];
clrscr;
for i:=1 to n do
 begin
  clrscr;
  case ser[i] of
  1:one(a,h,s);
  2:two(a,b,u,s);
  3:three(a,b,c,s);
  0:begin
    write('Выпал 0, программа завершена.');
    readln;
    exit;
   end;
  end;
 end;
write('Серия окончена!');
readln
end.