17 lines
358 B
Plaintext
17 lines
358 B
Plaintext
|
Var
|
||
|
|
Name: String[35];
|
||
|
|
name1: string[35];
|
||
|
|
Current: Integer;
|
||
|
|
Done: Boolean;
|
||
|
|
BEGIN
|
||
|
|
Name := '12345678901234567890123456789012345';
|
||
|
|
Name1 := Copy('123456789012345678901234567890123456',1,35);
|
||
|
|
IF (Name < Name) THEN
|
||
|
|
Current := 1
|
||
|
|
ELSE IF (Name > Name1) THEN
|
||
|
|
Current := 2
|
||
|
|
ELSE
|
||
|
|
Done := TRUE;
|
||
|
|
IF (Done) THEN
|
||
|
|
Writeln('Matches!');
|
||
|
|
END.
|