Обработка символьной информации (задачи, часть2)

Uses crt;
var
s1, s2 : string; n1, n2: integer;
Begin
clrscr;

Сравнивается количество символов в строках.

Uses crt;
var
s1, s2 : string;
Begin
clrscr;
ReadLn(s1);

Строки сравниваются посимвольно (коды символов).

s2, s3 : string;
max,n1,n2,n3 : integer;
begin
readLn(s1);
readLn(s2);

Тест 1):
Ввод:
S1=‘ab’
S2=‘abcd’
S3=‘abc’
Вывод:
max:=4

Тест 2):
Ввод:
S1=‘abcde’
S2=‘abc’
S3=‘ab’
Вывод:
max:=5

Тест 3):
Ввод:
S1=‘a’
S2=‘ab’
S3=‘abc’
Вывод:
max:=3

s3 : string;
begin
readLn(s1);
readLn(s2);
readLn(s3);
if s1 > s2

Тест 1):
Ввод:
S1=‘ab’
S2=‘abcd’
S3=‘abc’
Вывод:
max:=‘abcd’

Тест 2):
Ввод:
S1=‘abcde’
S2=‘abc’
S3=‘ab’
Вывод:
max:=‘abcde’

Тест 3):
Ввод:
S1=‘a’
S2=‘ab’
S3=‘abc’
Вывод:
max:=‘abc’

i : char;
begin
for i := 'a' to 'z' do

: char;
begin
for i := 'z' downto 'a' do