Pascal/Turbo Pascal - Problema con la funcion sqrt(x)

Buenas
tengo que hacer un programa en Pascal que, haciendo uso de la funcion sqrt(x), calcule el valor cuadrado de los 100 primeros números enteros, los almacene en un arreglo de 100 elementos y
los muestre en pantalla con el siguiente formato:
Raíz Cuadrada de 1 = 1.
Raíz Cuadrada de 2 = 1.41.
Raíz Cuadrada de 3 = 1.73.

esto es lo que llevo hasta el momento:
-----------------------------------------------------------------------------------------------------------
program Tarea_programada;
uses crt;
type
vector=array[1..100] of real;
var contador: integer;
lista:vector;
i:integer;

begin
Clrscr;
for contador:=1 to 100 do
begin
for i:=1 to 100 do
begin
writeln('Raiz cuadrada de ', contador , '=', Sqrt(i):0:3);
end;
end;
readkey;
end.
--------------------------------------------------------------------------------------------
el problema es que las iteraciones que me mustra son mas de las que necesito y no encuentro la sintaxis correcta para que me muestre en pantalla lo que se me pide.
muchas gracis de antemano por la ayuda.

Te propongo la siguiente solución:

Muchisimas gracias! al verlo de esa manera ya se aclararon varias dudas.