关于pascal的问题

小弟刚开始学习pascal语言，有个小问题想问一下，下面的内容句法有什么问题吗？

题目是这样的：某超市购物优惠规定：所购物品不超过100元时，按九折付款，如超过100元，超过部分按七折收费。编一程序完成自动计费的工作。

下面是我写的东西

program esatj
var
x:real;
begin
readln(x);
if
x<=100
then
x:=0.9*x;
if
x>100
then
x:=90+0.7*x;
writeln(x);
end.

顺便问一个问题，

将输入二个实数中较大的放在max里，小的放在min里，并输出。这个问题用Pascal怎么写，谢谢....

v v

掉了个分号，另外0.7应该*(x-100)（超出部分按7折算）

program esatj;
var
x:real;
begin
readln(x);
if
x<=100
then
x:=0.9*x;
if
x>100
then
x:=90+0.7*(x-100);
writeln(x);
end.

第二个问题：

program esatj;
var x,y:real;
var min,max:real;
begin
readln(x,y);
if x>y then begin
min:=y; max:=x
end else begin
min:=x; max:=y
end;
writeln('min:',min,' max:',max);
readln;
end.

第二个可以这样：

program esatj; var x:real; min,max:real;

begin read(max);

begin readln(x);

if max>x then min:=x

else

begin

min:=max;

x:=max;

end;

writeln('min:',min,' max:',max);

end.

uses Math；

double a = Max(m,n);//返回最大值

double b = Min(m,n);//返回最小值