用Pascal定义最大值

我还有一个问题，因为这段代码在编译器中不起作用。。。很抱歉问了这么多问题，我想接下来还有其他问题：

program findMaximum(input,output);

var
    number, Maximum: integer; 
begin
    writeln('Insert a number and finish up with 0').
    while number < >0 do
    begin
        if number> Maximum then
            Maximum := number;
        readln(number)
    end;
    if Maximum <> 0 then 
        writeln('The biggest number is',Maximum)
    else
        writeln('The input was zero.')
end.

程序查找最大值（输入、输出）；
变量
数字，最大值：整数；
开始
writeln（'插入一个数字并以0结尾'）。
而数字<>0则
开始
如果数量>最大值，则
最大值：=个数；
readln（编号）
结束；
如果最大值为0，则
writeln（'最大值为'，最大值）
其他的
writeln（'输入为零'）
结束。

var
数字，最大值：整数；
开始
最大值：=0；
writeln（'插入一个数字并以0结尾'）；
而数字<>0则
开始
readln（数字）；
如果数量>最大值，则最大值：=数量；
结束；
如果最大值为0，则
writeln（'最大值为'，最大值）
其他的
writeln（'输入为零'）
结束。

很抱歉写了这么多。它是缩进的。我仍然需要学习如何在这里发布实际缩进显示的代码。到底是什么问题？是否有错误消息？输出应为“标识符”，但找到“WHILE”。在我运行之前，有人告诉我致命的：语法错误，应该是“；”，但找到了“标识符最大值”。在这两种情况下都有语法错误。*它说*正如编译器所说，语句以“；”而不是“.”结尾。在使用“最大值”之前还要初始化它，将其设置为0。此外，在使用“number”之前，您必须先“readln”一次。如果您学会了实际阅读错误消息中的单词，您可以在将来自己解决这些问题。第一个writeln的行应该以分号结尾，而不是以点结尾。

var
number, Maximum: integer; 
begin
maximum:=0;
writeln('Insert a number and finish up with 0');
while number < >0 do
begin
readln(number);

if number> Maximum then Maximum := number;
end;

if Maximum <> 0 then 
    writeln('The biggest number is',Maximum)
else
    writeln('The input was zero.')
end.