problema de cinte sis con lazarus y pascal

[mrsanty 156]

 

hola todos, les cuento, estoy asiendo un curso de programación en la escuela, y tengo como trabajo practico hacer un pequeño programa el cual 
yo tengo que poner diferentes valores y el programa me dice cual es la temperatura máxima del día. 
el lenguaje que estoy viendo es lazarus y pascal , debajo del código les envío una foto del error que me sale cuando lo ejecuto, según dice el programa es un " ; " 

este es el código. el lenguaje que estoy viendo es lazarus y pascal 

PROGRAM temperatura ;

function leer_temperatura(var temp:integer):integer;

var

  texto1, texto2 :string;

BEGIN

repeat

write ('Ingrese una temperatura ');

read (temp) ;

if (temp < -30) or (temp >100) then writeln ('Temperatura fuera de rango. Ingrese nuevamente');

until (temp <= -30) and (temp <= 100) ;

texto1:='La temperatura maxima del dia es:';str(temp;texto2);

texto3:= texto1 +texto2 +' grados') ;

readln;

{program principal}

 Var texto3 : string ;

   readln (temp);

   texto3:= leer_temprratura(texto3);

   writeln (texto3);

readln;

END.

 

Debes iniciar sesión para ver el contenido del enlace en esta publicación.

 

[SeruX 6]

 

 

texto1:='La temperatura maxima del dia es:';str(temp;texto2);

texto1:=('La temperatura maxima del dia es:';str(temp;texto2);

texto1:=('

[mrsanty 156]

probé con el paréntesis. y me sigue saliendo el mismo error 

[FaBy 2]

texto3:= texto1 +texto2 +' grados') ; este parentesis sobra