Ребят,помогите подправить программу

[deniska92]

Имеется вот такой вариант программы в ПАСКАЛЕ:
примерно так:

var n1,n2,d1,d2:integer;
s:string;
ind:boolean;
begin
s:='';
n1:=nil;
d1:=nil;
ind:=true;
n2:=0;
while (ind=true)and(n2-100) do
begin
readln(n2);
if n2=-100 then begin ind:=false; break; end;
if n1nil then d2:=n1-n2;
if (d1nil)and(n1nil) then 
if d1d2 then begin ind:=false; s:='net'; end else s:='da';

n1:=n2;
end;
writeln(s);
readln;
end.

При запуске в FreePascal выбивает 9 ошибок.Помогите решить проблему пожалуйста.

 

[mss]

> FreePascal выбивает 9 ошибок

Спрашивается, для КОГО он их "выбивает" ?
Вникай в смысл каждого сообщения !

 

[Dock1100]

:welcome:

var n1,n2,d1,d2:integer;
s:string;
ind:boolean;
begin
s:='';
n1:=-32768;
d1:=-32768;
d2:=-32768;
ind:=true;
n2:=0;
while (ind=true)and(n2<>-32768) do
begin
readln(n2);
if n2=-32768 then begin ind:=false; break; end;
if n1<>-32768 then d2:=n2-n1;
if (d1<>-32768)and(n1<>-32768) then
if d1<>d2 then begin ind:=false; s:='net'; end else s:='da';

n1:=n2;
d1:=d2;
end;
writeln(s);
readln;
end.