Составить блок-схему алгоритма и программу вывода на экран всех двузначных чисел

program gf;

var x: integer;

begin

write ('Положительные двухзначные числа: ') ;

For x:=-99 to 99 do

if (x-100) then

write (x, ' ') ;

writeln;

write (' Отрицательные двухзначные числа: ') ;

For x:=-99 to 99 do

if (x>9) and (x<100) then

write (x, ' ') ;

end.