Циклы.

{1. Создайте программу, приглашающую пользователя ввести две строки и выводящую в области просмотра строку,
символы которой имеют более высокое числовое значение ASCII из двух соответствующих символов, введенных пользователем.
В строках используются только символы английского алфавита.
2. Создайте программу, приглашающую пользователя ввести строку и определяющую,
начинается ли строка с цифры, другого символа, пробела, буквы в верхнем регистре или буквы в нижнем регистре.
3. Создайте программу, приглашающую пользователя ввести свое имя и определяющую, начинается ли это имя с гласной или согласной.
4. Организовать ввод с клавиатуры последовательности натуральных чисел. Признаком конца ввода является ввод числа 0.
В процессе ввода подсчитать число введенных чисел и определить их среднее значение.
5. Изменить программные реализации решения Задачи 4, дополнив их определением наибольшего и наименьшего из введенных чисел.
 
Буду признателен за решение любых задач.}
uses crt;
procedure n_1;
var s,s1:String;
i:Integer;
begin
Writeln('Введите 2 строки');
readln(s,s1);
if Length(s)>Length(s1) then Writeln('больше 1-ая строка')
    else
           Writeln('больше 2-ая строка');
end;
 
procedure n_3;
var name,s1:String;
i:Integer;
begin
Writeln('Введите name');
readln(name);
for i:=1 to Length(name) do begin
end;
case name[1] of
'а':Writeln('С гласной');
'я':Writeln('С гласной');
'е':Writeln('С гласной');
'ё':Writeln('С гласной');
'и':Writeln('С гласной');
'о':Writeln('С гласной');
'у':Writeln('С гласной');
end;
 
end;
var otvet :String;
begin
readln(otvet);
if otvet='3' then n_3;
if otvet='1' then n_1;
 
end.

var a, n, S : Integer;
begin
n := 0;
S := 0;
repeat
ReadLn(a);
S := S + a;
n := n + 1;
until a = 0;
WriteLn('Vved chisel - ', n); 
WriteLn('Srednee - ', S/n);
ReadLn; 
end.

var a, n, S, MaxA, MinA : Integer;
begin
n := 0;
S := 0;
MaxA := -MaxInt;
MinA := MaxInt;
repeat
ReadLn(a);
S := S + a;
n := n + 1;
if MaxA < a then MaxA := a;
if MinA > a then MinA := a;
until a = 0;
WriteLn('Vved chisel - ', n); 
WriteLn('Srednee - ', S/n);
WriteLn('Max znach - ', MaxA);
WriteLn('Min znach - ', MinA);
ReadLn; 
end.