Паскаль,Please

[newlife]

Введите с клавиатуры пять целочисленных элементов массива Х. Выведите на экран значения корней и квадратов каждого из элементов массива в виде строк. рещите пожалуйста

[battlefrogg]

program resh;
var x: array [1..5] of integer; i: byte; koren, kvadrat: array [1..5] of string;
begin
for i:= 1 to 5 do
  begin
    writeln('Введите ', i ,' элемент');
    readln(x[i]);                        //* Считываем их
    Str(sqrt(x[i]), koren[i]);        //* Считаем и сразу переводим в строку
    Str(sqr(x[i]), Kvadrat[i]);                  
    writeln('Корень', x[i] ,' = ', koren[i]);     //* Вывод
    writeln('Квадрат', x[i] ,' = ', kvadrat[i]);
  end;
end.