таблица значений f(x) через цикл с пост условие

program fynkcia;
uses crt;
var x,f,a,b,h:real;
       s:integer;
       mas: array [1..100,1..2] of real;{одна строка для значений f(x) вторая для (x)}
 
procedure vvod(x,a,b,h:real);
begin
        write();
        write('vvedbnt chislo X');
        readln(x);
        write('vvedbnt nachalnoe znachenie cikla ');
        readln(a);
        write('vvedbnt konechnoe znachenie cikla ');
        readln(b);
        write('vvedbnt shag cikla ');
        readln(h);
        writeln('proversia');
        writeln('2*e^(-',x,'/5)sin(',x,')/2');
        writeln('cikl bydet idti ot "',a,'" do "',b,'" s shagom "',h,'"');
end;
 
procedure cikl(x,a,b,h,f,s:real);
var i:integer;
begin
        i:=1;
        s:=0;
        repeat
        begin
             f:=2*exp(-x/5)*sin(x/2);
             i:=i+1;
             mas[i,1]:=a;
             a:=a+h;
             mas[i,2]:=f;
             s:=s+1;
        end;
        until (a=b);
end;
 
procedure vivod(mas:array [1..100,1..2] of real);
var i,j:integer;
begin
        for i:=1 to s do
        begin
             for j:=1 to 2 do
             begin
                  writeln(mas[j,i]);
             end;
        end;
end;
 
begin
vvod(x,a,b,h);
cikl(x,a,b,h,f,s);
vivod(mas)
end.

program fynkcia;
uses crt;
 
procedure vvod(var a,b,h:real);
begin
write('vvedbnt nachalnoe znachenie cikla a=');
readln(a);
repeat
write('vvedbnt konechnoe znachenie cikla b>a b=');
readln(b);
until b>a;
repeat
write('vvedbnt shag cikla <',b-a:0:2,'  h=');
readln(h);
until h<b-a;
writeln('F(x)=2*e^(-x/5)sin(x)/2');
writeln('cikl bydet idti ot "',a:0:2,'" do "',b:0:2,'" s shagom "',h:0:2,'"');
end;
 
procedure cikl(a,b,h:real);
var x,f:real;
begin
x:=a;
repeat
f:=2*exp(-x/5)*sin(x/2);
writeln('x=',x:4:1,'  F(x)=',f:6:3);
x:=x+h;
until (x>b);
end;
var a,b,h:real;
begin
clrscr;
vvod(a,b,h);
cikl(a,b,h);
readln
end.