Pascalzim–Raiz quadrada e Potência

Olá!  Já faz algum tempo que não atualizo meu blogger, e hoje estava dando uma olhada e vi uns comentários que não tinha visto e peço desculpa para os dois que pediram minha ajuda nesse poste, eu estava estudando e dei uma abandonada no meu blogger por falta de tempo. Mas eu fiz com muito temo de atraso, mas fiz o que ele pediu, um programa que extrai a raiz quadrada de um valor, e eleva o mesmo valor ao quadrado. Na verdade tem duas funções que faz esse trabalho, para raiz quadrada usa  a função sqrt(x) “exibe a raiz quadrada de x, onde x pode ser qualquer variável”)e sqr(x) “eleva x² ao quadrado, onde x pode ser qualquer variável”.
Não vou explicar muito aqui porque já fiz isso como comentário, vou colocar o arquivo para download e também por o código logo abaixo.

//programa por Alessandro ribeiro da silva //curso técnico em programação de jogos digitais, formandos de 2011 pelo Instituto federal do Paraná em Telêmaco Borba //cursando técnico em informática voltado para web, formatura em 2012(se Deus quiser que acabe a greve dos  funcionários federais) //alessandrozinco2009.blogspot.com, alessandrozinco@hotmail.com //Telêmaco Borba-PR, 26/06/2012 as 01:03 am Program Pzim ;     var a,c : integer;  //declacara uma variável do tipo inteiro     var b: real;   //declara uma variável do tipo real, obs: se declarar inteiro                 // mas receber um valor do tipo real, o programa da erro. Begin      writeln('Digite um valor: '); //vai mostrar a mensagem pedindo um valor, esse                              // valor será do tipo inteiro      readln(a); //recebe o valor do tipo inteiro digitado pelo usuário                    b:=sqrt(a);  //função que extrai a raiz quadrado, mas retorna um valor do tipo real          writeln('raiz quadrada de ',a,' eh: ',b); //exibe o valor da raiz quadrada,                     // obs.: se quiser exibir um valor inteiro use  a função "Round(b)" sem asteriscos                     // por exemplo, sem ela o valor da raiz quadrada de 9 seria 3.000,  com ela                     // exibe apenas 3     writeln; //serve apenas para pular uma linha                    c:= sqr(a);  //eleva ao quadrado     writeln;     writeln(a,' elevado ao quadrado eh ',c);             //    observações:     //    write: escreve tudo na mesma linha, se tiver varias mensagem usando write será exibido todas na mesma linha     //    writeln: escreve cada mensagem e pula uma linha     //    read: da mesma forma que acima, ele le a entrada de dados e executa próxima sentença na mesma linha     //    readln: le a entrada de dados e executa a próxima sentença na linha seguinte     //    o ln no final do comando funciona como quebra de linha                       End.

Aconselho a baixar o arquivo aqui, o codigo acima é meio confuso porque tem muitos comentários no meio.
Se quiser baixar o palcalzim que um ótimo compilador por sinal! Clique aqui
Qualquer duvidas ou sugestões serão bem vindos.