Program lab2;
uses crt;
Const
Stroka1: array[0..10] of char = 'Problem'#0;
Stroka2: array[0..10] of char = 'Y2K'#0;

Type
PChar=^Char;
Var
St1: string[10];
St2: string[10];
St1z: PChar;
St2z: PChar;
VT: array['5'..'9'] of char;
MT: array[-10..-3,-1..2] of word;
i,j: integer;
c: char;
BEGIN
Clrscr;
St1:='';
St2:='Kod#20';
St1z:=@Stroka1;
St2z:=@Stroka2;
Writeln('St1=',St1, ', St1 length=',integer(St1[0]), ', St1 size=', sizeof(st1));
Writeln('St2=',St2, ', St2 length=',integer(St2[0]), ', St2 size=', sizeof(st2));
if st1 < st2 then
Writeln('St1 < St2')
else
Writeln('St1 >= St2');
readln;
St1:=St2;
For i:=1 to integer(St1[0]) do
St1[i] := succ( St1[i] );
Writeln('St1=',St1, ', St1 length=',integer(St1[0]), ', St1 size=', sizeof(st1));
Writeln('St2=',St2, ', St2 length=',integer(St2[0]), ', St2 size=', sizeof(st2));
if st1 < st2 then
Writeln('St1 < St2')
else
Writeln('St1 >= St2');
readln;
Writeln('Stroka1=',Stroka1, ', Stroka1[0]=', Stroka1[0] );
Writeln('Stroka2=',Stroka2, ', Stroka2[0]=', Stroka2[0] );
readln;
Write('St1z=');
While ( st1z^ <> #0 ) do
begin
Write( st1z^ );
Inc(st1z);
end;
readln;
Write('St2z=');
While ( st2z^ <> #0 ) do
begin
Write( st2z^ );
Inc(st2z);
end;
readln;
for c:='5' to '9' do
begin
VT[c]:=c;
Write(' VT[',c,']=',VT[c]);
end;
readln;
for i:=-10 to -3 do
begin
writeln;
for j:=-1 to 2 do
begin
MT[i,j] := abs(i*10+j);
Write(' MT[',i:3,',',j:2,']=',MT[i,j]:3);
end;
readln;
end;
END.