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

program gf;
var x: integer;
begin
write('Положительные двухзначные числа: ');
For x:=-99 to 99 do
if (x<-9) and (x>-100) then
write(x, ' ');
writeln;
write( ' Отрицательные двухзначные числа:  ');
For x:=-99 to 99 do
if (x>9) and (x<100) then
write(x, ' ');
end.