Psuedocode Help (programming class)

well i have to work on a pseudo code on pascal, for my class
and its about a gym, i keep getting errors at compiling, can anyone help me out :l

this is how it is so far,
Please help ASAP, i need to turn my assignment in soon, thank you

Code:

Program Greatbodiesgym;

Var SessA,FeesD,FeesO,FeesP,RegMem,SpecMem,Regrate,SpecRate,Sum,Highest,Avg;

Num:array[1..6]

Begin

array size 6 <- namarray

array size 6 <-  SesA

array size 6 <- feesP

array size 6 <- stat

Regrate  <- 20

Specrate  <- 10

Regmem <- 150

Specmem <-75

For i := 1 to 6 do

Readln (namarray [i]);

                Readln (sesA [i]);

Readln (feesP [i]);

Readln (stat [i]);

Endfor;

I := 1

Sum := 0

Highest := 0

While I <= 6

If status [i] := ‘R’ then feesD <-regmem+(SesA[i]*regrate)

Else feesD  <-specmem+(sesA[i])*specrate)

FeesO :=-feesD – feesP

Writeln (‘Fees Outstanding ‘ , FeesO);

Sum :=  sum +feesP [i]           

Writeln (‘Sum is ‘ , Sum);

 

write nam[i], stat[i], sessA[i], FeessP[i],FeesO[i],highest[i] ;

If feesD > 0 then highest <- feesD;

End while;

avg <- sum/6

writeln (‘avg’);

writeln (‘highest’);

Found = 'n';

Position <- 0;

i <- 1

Repeat

                If nam[i] = Tony King, then position <- 1

                found = 'y'

                i <- i+1

Until 1>6 or found = 'y'

If found = 'y' then

writeln (Nam[i],'was found in position ' location of array',)

else writeln ('not found', not found)

end.

 

Can't say I'm the best at pascal (my school taught C++)

However, in this part:
For i := -1 to 6 do

Readln (namarray );

Readln (sesA );

Readln (feesP );

Readln (stat );

Endfor;

namarray is from 1-6, you're asking to find items -1 and 0?



I'm not sure if this would throw compile errors, but it should be an error nonetheless.

 

oh sorry
i meant
"For i := 1 to 6 do"