Вывести таблицу из квадратов чисел от 0 до 1 с шагом 0.1. ответ на языке pascal

Var c,i:real;
begin
c:=0;i:=0;
while i<1 do begin
c:=i^2;
i:=i+0,1;
writeln('Квадрат числа',i,'=',c);
end;
readln;
end.

//Pascal
var i: real;
begin
while i < 1 do
begin
  writeln(i:0:1, ' в квадрате = ', sqr(i):0:2);
  i := i + 0.1;
end;
  readln;
end.