pascal.помогите, тут 3 задачи

Question

1.вводиться 2 числа (коды) . Вывести их символы и коды
2.вводиться символ. вывести все символы после него
3.вводиться 3 символа. вывести символ с макс значением

Илюха Попов · Accepted Answer

var
num:integer;
begin
 write('Введите код символа: ');
 readln(num);
 writeln(chr(num));
end.
======================
var
ch :char;
begin
 write('Введите символ: ');
 readln(ch);
 repeat
 inc(ch);
 write(ch,' ');
 until ord(ch) = 127;
end.
==================
var
ch1,ch2,ch3 :char;
begin
 write('Введите первый символ: ');
 readln(ch1);
 write('Введите второй символ: ');
 readln(ch2);
 write('Введите третий символ: ');
 readln(ch3);
 
 if(ch1 > ch2) and (ch1 > ch3) then writeln(ch1)
 else if(ch2 > ch1) and (ch2 > ch3) then writeln(ch2)
 else writeln(ch3);
 
end.