Нужно вывести на экран натуральные числа и их квадраты до указанного целого числа n

Паскаль: 
uses GraphABC;
var  a: integer;  
begin 
read(a); //спрашиваем до какого числа выводить 
for var i := 1 to a do 
begin   
println(Число: + i + . Его квадрат: + sqr(i) + ;); 
end;
end.