Pascal..comversor de numeros binarios

[Binary_Systen 0]

E ae...blzz???

So novo no fórum, tenho 14 anos, conheço HTML...sei um poko de JS, Photoshop, E to estudando pascal sozinho...

mais eu não to postando pra fala de min...e sim em um script de Pascal que eu rachei a cuca pra fase, e ta dando erro na última linha...lá vai o script:

 

Program CONVERSOR_BINARIO ;

var

RESP1 : string;

RESP2 : string;

RESP3 : string;

RESPF : boolean;

N1 : integer;

N2 : integer;

N3 : integer;

N4 : integer;

N5 : integer;

N6 : integer;

N7 : integer;

N8 : integer;

B : array[1..1,1..8] of integer;

R : array[1..1,1..8] of integer;

I : integer;

CC : integer;

RESPF1 : string;

Begin

I := 1;

writeln('Iniciando...');

writeln('By: Giuliano Di Sevo Fernandes');

writeln('Mesenger: giulianodisevo@hotmail.com');

writeln;

writeln(' ___________________________________');

writeln('|............................................................ |');

writeln('| Conversor de numeros binarios |');

writeln('|___________________________________|');

writeln;

RESPF := true;

CC := 1;

 

write('Converter de:');

write('De numeros para binario<n>, ou binario para numeros<b>?'); readln(RESP3);

if (RESP3 = 'n') then

begin

writeln('Conversor de numeros para binário');

writeln;

write('Insira o numero a ser transformado para binario:..'); readln(N);

N1 := N mod 2;

N2 := N mod 4;

N3 := N mod 6;

N4 := N mod 8;

N5 := N mod 10;

N6 := N mod 12;

N7 := N mod 14;

N8 := N mod 16;

RESP2 := N1; N2; N3; N4; N5; N6; N7; N8;

writeln(N ,' em binario sera ',RESP2);

end

else

begin

writeln('conversor de binario para numeros');

writeln;

repeat

write('Insira o', I:2 ,'º numero da sequencia de 8:...' ); readln(B);

R[CC] := B[1,CC] * 1;

write('O ',B[1,1], B[1,2], B[1,3], B[1,4], B[1,5], B[1,6], B[1,7], B[1,8], 'será ', R[1,1], R[1,2], R[1,3], R[1,1], R[1,4], R[1,5], R[1,6], R[1,7], R[1,8], ');

CC := CC + 1;

I := I + 1;

until (I = 9) and (CC = 9);

end;

 

write('Tecle <ENTER> para encerrar'); readln;

End.

 

O problema é o seguinte:

na penultima linha, eu coloquei uma mensagem de leitura de variavel, sem variavel pra ler...o que causa se o usuario teclar algum botão a janela se fechara, provavelmente você's devem sabersobre isso.

mais quando eu executo ele(debug), ele acusa o seguinte erro:

 

erro sintático na linha 66( write('Tecle <ENTER> para encerrar'); readln;)...

'TECLE' nao esperado!

 

é eu naum consigo achar o erro de jeito nehum...

Quem puder me ajudar, ficarei muito grato... ^_^

 

Obs: Eu não tenho certeza se o script vai funcionar, e se alguem achar mais algun erro, ou tiver uma ideia melhor para o script, por vafor, postem aqui :)

[<!-- LeD --!> 0]

write('O ',B[1,1], B[1,2], B[1,3], B[1,4], B[1,5], B[1,6], B[1,7], B[1,8], 'será ', R[1,1], R[1,2], R[1,3], R[1,1], R[1,4], R[1,5], R[1,6], R[1,7], R[1,8], '); R[1,8], '); tem uma "," e um " ' " que nao estao permitindo que se finalize o comando. correçao: write('O ',B[1,1], B[1,2], B[1,3], B[1,4], B[1,5], B[1,6], B[1,7], B[1,8], 'será ', R[1,1], R[1,2], R[1,3], R[1,1], R[1,4], R[1,5], R[1,6], R[1,7], R[1,8] );Otima ideia, tomara que funcione, se funcionar posta ela ai pra gente ver como fico. writeln(' The life is the great pleasure - the death the great abstinence. Thus being it uses to advantage to the maximum the life - HERE and NOW! ');