Программы для данных заданий в Паскале ABC для школьного курса по массивам. Чтобы было понятно что это выполнил учащийся. Оценку поставлю лишь в случае положительного результата после проверки.
1. Задан случайный символьный массив. Ввести с клавиатуры символ и вывести на консоль количество всех таких символов в массиве.
2. Задан случайный цифровой массив. Ввести с клавиатуры цифру и вывести на консоль сумму всех цифр, не превышающих введенную.

Искренне надеюсь, что Вы сможете перевести этот код к нужному виду..:) В принципе, расхождения должны быть только в вводе/выводе (где Console.Бла-бла-бла) и генерации случайных чисел)

Sub Main()
        Dim a(29), Sum, Col As Integer
        Dim Rnd = New Random()
        For i As Integer = 0 To 29
            a(i) = Rnd.Next(-100, 100)
            Console.Write("{0} => {1}" + Environment.NewLine, i, a(i))
            If (i > 0) Then
                If (a(i) Mod a(0)) Then
                    Sum = Sum + a(i)
                    Col = Col + 1
                End If
            End If
        Next
        Console.WriteLine(Math.Round(Sum / Col, 2))
        Console.ReadKey()
    End Sub

Procedure swap(var a, b: real);
var t: real;
begin
     t := a;
     a := b;
     b := t;
end;

var a, b, c: real;
begin
     readln(a, b, c);
     if (a > b) then swap(a, b);
     if (b > c) then swap(b, c);
     if (a > b) then swap(a, b);
     writeln(a, ' ', b, ' ', c);
end.

Без процедур:

var a, b, c, t: integer;
begin
     readln(a, b, c);
     if (a > b) then
     begin
          t := a;
          a := b;
          b := t;
     end;
     if (b > c) then
     begin
          t := b;
          b := c;
          c := t;
     end;
     if (a > b) then
     begin
          t := a;
          a := b;
          b := t;
     end;
     writeln(a, ' ', b, ' ', c);
end.