Написать программу на паскале песенку

1)

var a: array [1..10] of integer;

i, max, min: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   max := a[1];

   min := a[1];

   for i := 2 to 10 do

   begin

       if a[i] < min then min := a[i];

       if a[i] > max then max := a[i];

   end;

   writeln();

   writeln('Максимальный эл.: ', max);

   writeln('Минимальный эл.: ', min);

end.

2)

var a: array [1..10] of integer;

i, negCounter: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   negCounter := 0;

   for i := 1 to 10 do

   begin

       if a[i] < 0 then inc(negCounter);

   end;

   writeln();

   writeln('Кол-во отрицательных: ', negCounter);

end.

3)

var a: array [1..10] of integer;

i, sum: integer;

begin

   for i := 1 to 10 do

   begin

       write('Введите ', i,' элемент массива: ');

       readln(a[i]);

   end;

   sum := 0;

   for i := 1 to 10 do

       sum := sum + sqr(a[i]);

   writeln();

   writeln('Сумма квадратов элементов: ', sum);

end.

// PascalABC.Net

var vowel: set of char = ['а', 'у', 'о', 'ы', 'и', 'э', 'я', 'ю', 'ё', 'е'];

s, substr: string;

begin

  s := 'кот в сапогах';

  var words := s.Split(' ');

  for var i := 0 to words.length - 1 do

  begin

      for var j := 1 to words[i].Length do

          if words[i][j] in vowel then

          begin

              substr := Copy(words[i], 1, j-1);

              Delete(words[i], 1, j-1);

              words[i] += substr;

              break;

          end;

      words[i] += 'циус';

  end;

  writeln(words.JoinIntoString(' '));

end.