Какие ошибки допущены в программе? print (Введите число a)a=int(input())if a>=0:if a=0:a=18else a+=1else: a-=6print (a)inputисправьте их . ​

//PascalABC.NET 3.2 сборка 1318

type
  student=record
    FIO:string;
    age:integer;
    CountOf3:integer;
  end;

Const
  n=3;

Var
  ar:array[1..n] of student;

procedure reading();
Var
  i:integer;
begin
writeln('ФИО         |Возраст    | Количество троек');
for i:=1 to n do
  begin
    read(ar[i].FIO);
    write(' ');
    read(ar[i].age);
    write(' '); 
   read(ar[i].CountOf3);
   writeln;
  end;
end;

procedure writing();
Var
  i:integer;
begin
writeln('ФИО         |Возраст    ');
for i:=1 to n do
if ar[i].CountOf3=1 then write(ar[i].FIO,' ',ar[i].age);
end;

begin
reading;
writing;
end.