[Pascal]: Задача на символьную строку, цикл, одномерные массивы., выручите плз

[Knife]

Помогите мне пожалуйста решить эти задачи:
1. В символьной строке между словами вставить вместо пробела запятую и пробел
2. Цикл с параметром. вычислить: (1+sin0,1)(1+sin0,2)...(1+sin10)
3. Одномерные массивы. Даны целые числа a1,a2,...an Вывести на экран только те числа, для которых a;>=I
4. Даны целые, положительные числа a1,a2...an. Найдем среди них те, которые являются квадратами некоторого числа n
заранее благодарен

[Костя КС]

4)

const n = 5;
type mas = array[1..n] of integer;
var
a,b : mas;
i,k : integer;

begin
  k:=0;
  for i:=1 to n do
  begin
    read(a[i]);
    if frac(sqrt(a[i]))=0 then
      begin
        k := k +1;
        b[k]:= a[i];
      end;
  end;
for i:=1 to k do write(b[i],' ');
end.

[Костя КС]

2)

var
x,y : real;

begin
y := 1;
x := 0.1;
repeat
y:= y*(sin(x));
x:= x+0.1;
until x>10;
writeln('y= ',y);
end.