Pascal/Turbo Pascal - leer .txt pascal

hola!!

como hago para leer un archivo .txt con pascal, desde, por ejemplo la tercera linea y asiganrsela a una variable ejemplo
-------------------
lala.txt

hola
soy yop XD
122343
--------------------

variabla:= (3ra linea del texto) 122343;

como ago eso? XD, ah, y de paso q sea string! gracias

Program Leer;
Var
arc: text;
s: string;

BEGIN
assign (arc , 'archivo.txt'); { le dice a 'arc' que archivo va a usar }
reset (arc); { abre el archivo }
readln (arc , s); { lee la primera línea del archivo y la asigna a 's'}
readln (arc , s); { lee la segunda línea del archivo y la asigna a 's'}
readln (arc , s); { lee la tercera línea del archivo y la asigna a 's'}
END;